Записать решение задач в 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==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 1000)) or (x mod 400=0) then

writeln ('да') else writeln ('нет')

end.