Составьте программу,которая определяет,является ли сумма цифр введенного целого...

Question

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

Answer 1

Uses crt;
var x,a,b,c,d:integer;
begin
readln(x);
a:=x mod 10;
b:=x div 10 mod 10;
c:=x div 1000;
d:=x div 100 mod 10;
if((a+b+c+d) mod 2=0) then writeln ('Сумма цифр числа чётная')
else writeln('Сумма цифр числа нечётная');
end.

Comments

a:=x mod 10;
b:=x div 10 mod 10;
c:=x div 1000;
d:=x div 100 mod 10;

---

согласен, коряво, давно паскаль не открывал

---

спасибо за подсказку

---

Огромнное спасибоо