Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. В паскале
Answers & Comments
Endok
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.
Answers & Comments
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.