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

Предыдущий
вопрос Следующий
вопрос

program CountEvenDigits;

var
num, digit, count: integer;

begin
count := 0;

writeln('Введите натуральное число: ');
readln(num);

while num > 0 do
begin
digit := num mod 10;

end;

writeln('Количество четных цифр в числе: ', count);
end.