Найдите количество четных цифр в десятичной записи числа n. ** Алгоритмическом Языке

Question

Найдите количество четных цифр в десятичной записи числа n.
На Алгоритмическом Языке

Answer 1

Program z2; var x, y, k:integer; Begin        readln (x);         k:=0;         while x<>0 do         begin              y:=x mod 10;              if y mod 2 =0 then k:=k+1;              x:=x div 10;         end;         writeln ('k=',k);