Напишите программу, подсчитывающую число таких трехзначных чисел, что

а) Сумма цифр является нечетным числом

б) Цифры числа расположены по НЕВОЗРАСТАНИЮ

В ответе программа должна только выдавать количество чисел, сумма цифр которых нечетна и количество числел, цифры которых расположены по НЕВОЗРАСТАНИЮ.

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.