Задание:
Записать решение задач в 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.
Знаете другой ответ?