НА ПАСКАЛЬ ABC БЕЗ ВСЯКИХ СУППЕР ПУППЕР ВЕРСИЙ (ПОЛНОСТЬЮ )(30БАЛЛОВ)
Задача:

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

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

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

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

Целое число.

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

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

1

var a,k: integer;beginreadln(a);k:=0;while a>0 do begin if a mod 2=0 then k:=k+1; a:=a div 10; end;writeln(k);end.Пример:3211