Вопрос от посетителя:
дано трехзначное число N. определить будет ли сумма его цифр четным числом
Илюха отвечает:
Решение на языке Pascal
program pr;
var n,a,b,c, sum:integer;
begin
readln (n);
a:=n div 100;
b:=n mod 100 div 10
c:=n mod 10
sum:=a+b+c;
if sum mod 2 = 0 then writeln (‘Сумма цифр четная’) else writeln(‘Сумма цифр четная’);
readln;
end.