Question

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

Answer 1

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.