Question

Написать программу в паскале.



Задано четырёхзначное число а. Разбить его на два двухзначных числа х и у. Определить будет ли сумма цифр числа х равняться сумме цифр числа у. Если да, то вывести фразу а - «счастливое число».


Срочно.

Answer 1

program raf105;

var

 abcd,ab,cd,a,b,c,d: integer;

begin

 write('Введите четырёхзначное число: ');

 readln(abcd);

 ab:= abcd div 100;

 cd:= abcd mod 100;

 a:= ab div 10;

 b:= ab mod 10;

 c:= cd div 10;

 d:= cd mod 10;

 if a+b = c+d then writeln('Счасливое число');

end.

PascalABC