Дано 4 значное число. Определить , является ли сумма его цифр четным?

Question

Дано 4 значное число. Определить , является ли сумма его цифр четным?

Answer 1

Какое число?Это легко

Answer 2

Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n); 
t:=n div 1000; 
c:=(n-t*1000) div 100; 
d:=(n-t*1000-c*100) div 10; 
e:=n-t*1000-c*100-d*10; 
z:=t+c+d+e; writeln (z); writeln; 
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end. 

Comments

переменные t, c, d и e – тысячи, сотни, десятки и единицы соответственно