Question

Urgent !!! Problemă la informatică : Scrieti un program care citeste de la tastatura un numar natural n si calculează numarul de cifre pare . Multumesc .

Answer 1

var n,s,c:integer;
begin
writeln('Introduceti numarul: ');
read(n);
s:=0;
while n>0 do
begin
c:=n mod 10;
n:= n div 10;
if c mod 2 = 0 then inc(s);
end;
writeln('Cifre pare: ',s)
end.