Задано число n . Найти количество чётных цифр.

Question

Задано число n . Найти количество чётных цифр.

Answer 1

Program prl;
uses crt;
var n, k:integer;
begin
read(n);
if n mod 2=0 then k:=k+1;
write(k);
end.