Дано четырех-значное число. кратна ли сумма двух - вопрос №8703298 от esbolat2000 06.01.2022 17:06

Question

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

esbolat2000 · Answer

VAR
a,c1,c2,c3,c4: integer;
BEGIN
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if c1+c2=c3+c4 then writeln ('ДА') else writeln('НЕТ');
readln;
END.