skvrttt
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.
0 votes Thanks 1
skvrttt
переменные t, c, d и e – тысячи, сотни, десятки и единицы соответственно
Answers & Comments
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.