Составьте программу вычисления количества трёхзначных чисел у которых сумма цифр является чётным числом.

program zz1;

var a, b, r, i, p:integer; / / задаем переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

begin

a: = i mod 10; / / получаем первую цифру

b: = i div 100; / / получаем вторую цифру

r: = (i mod 100) div 10; / / получаем третью цифру

if (a + b + r) mod 2 = 0 then p: = p + 1; / / проверяем сумму цифр на четность, если сумма четная, то считаем число

end;

writeln (' количество найденных трехзначных чисел = ', p); / / выводим ответ

end.