Question

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


Задача:

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

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

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

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

Целое число.

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

321

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

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.

Answer 2

спасибо

Answer 3

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

Answer 4

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

Answer 5

хорошо)

Answer 6

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