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

Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. В паскале

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

Var N,a,b,c,d:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100)  mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
If a+b=c+d then
Writeln(Сумма первых двух цифр равна сумме последних двух цифер)
else
Writeln(Сумма первых двух цифр не равна сумме последних двух цифер);
end.