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

Задача:

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

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

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

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

Целое число.

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

321

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

1

Question

Информатика

Тотя

12 января, 19:40

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

Задача:

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

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

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

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

Целое число.

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

321

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

1

+2

Ответы (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.