Дано трехзначное число N. определить будет ли сумма его цифр четным числом

Question

Дано трехзначное число N. определить будет ли сумма его цифр четным числом

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Решение на языке 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.