Question

Un program in Pascal care sa afiseze numarul de cifre pare al unui numar natural

Answer 1

program nrcifPare;

var n, cif, pare;

begin

  write('n='); readln(n);

  while (n<>0)

    begin

          cif:=n mod 10;

          if (cif mod 2 =0)   then inc(pare);

          n = n div 10;

     end;

     writeln(' are ', pare, ' cifre pare');

end.