Опубликовано 03.01.2018 по предмету Информатика от Гость

Записать решение задач в Pascal Abc:
1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.

Ответ оставил Гость

Задача 1.
var
  a,b,c,x: integer;
begin
readln(x);
a:= x mod 10;
x:= x div 10;
b:= x mod 10;
x:= x div 10;
c:= x;
if (a=b) or (a=c) or (b=c) then writeln(Есть) else writeln(Нет);
end.

Задача 2.
var
  a,b: integer;
begin
  readln(a,b);
  If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln(да) else writeln(нет);
end.

Задача 3.
var
x: real;
begin
readln(x);
if (x=<5) and (x>=1) then writeln(да) else writeln(нет);
end.

Задача 4.
Справка:
Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
var
x: integer;
begin
readln(x);
  for i:=1 to 3 do begin
  d:= x mod 10;
  x:= x div 10;
  s1:= s1+d
  end;
  for i:=1 to 3 do begin
  d:= x mod 10;
  x:= x div 10;
  s2:= s2+d
  end;
if s1=s2 then writeln(да) else writeln(нет)
end.

Задача 5.
Справка:
год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400.
var
  x: integer;
begin
  readln(x);
  If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
  writeln(да) else writeln(нет)
end.