Question

Sa se scrie un program care sa determine numarul de cifre pare ale unui numar natural citit la tastatura
(prin structuri repetitive cu test final si initial sau macar unul din ele)

Answer 1

program nrpare;
var k,cifra,n:integer;
begin
write('dati numarul natural:'); readln(n);
if n >=0 then begin
while n>0 do begin
cifra:=n mod 10;
if cifra mod 2 = 0 then k:=k+1;
n:=n div 10;
end;
write('in numarul ',n,' sunt ',k,' cifre pare');
end
else write('ti-am spus un numar NATURAL!);
end.