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

Задача:

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

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

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

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

Целое число.

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

321

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

1

Question

Информатика

Николаич

9 ноября, 23:31

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

Задача:

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

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

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

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

Целое число.

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

321

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

1

+4

Ответы (1)

Знаешь ответ?

Венуста · Answer 1

Var

num, ct: integer;

begin

read (num);

ct : = 0;

while num 0 do

begin

if (num MOD 10) MOD 2 = 0 then

begin

ct + = 1;

num : = num div 10;

end else num : = num div 10;

end;

write (ct);

end.