Question

Să se scrie o funcție recursivă care determină numărul de cifre pare într-un număr dar

Answer 1

var

 a, b, k : integer;

begin

 k := 0;

 write('Enter numar: ');

 readln(a);

 while a <> 0 do

 begin

   b := a mod 10;

   if b mod 2 = 0 then inc(k);

   a := a div 10

 end;

 writeln('Numarul de cifre pare: ', k)  

end.