Дано 3-х значное число N. Проверить, будет ли сумма его цифр чётным числом.

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число ');

read (n); / / вводим с клавиатуры число

s: = 0;

while n > 0 do / / организуем цикл, пока в числе есть цифры

begin

k: = n mod 10; / / получаем последнюю цифру

s: = s + k; / / прибавляем ее к сумме

n: = n div 10; / / отбрасываем ее из числа

end;

/ / выводим ответ

if s mod 2 = 0 then writeln (' сумма цифр трехзначного числа четная ', s) else writeln (' сумма цифр трехзначного числа нечетная ', s);

end.