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

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.