решите на пасхале


Задача:

Найти количество четных цифр натурального числа.

Формат ввода:

На вход подается натуральное, не превосходящее 30000.

Формат вывода:

Целое число.

Пример входных данных

321

Пример выходных данных

1

спасибо

за зачем нам переменная К, если мы её не используем?

удалите ее))) я просто сначала делать хотел через фор, а потом подумал что он не нужен

хорошо)

спасибо онромное!!!)))

varnum, ct: integer;beginread(num);ct := 0;while num <> 0 dobeginif (num MOD 10) MOD 2 = 0 then beginct += 1;num := num div 10;end else num := num div 10;end;write(ct);end.