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