Question

Elaborati un subprogram recursiv functie cu un parametru n care sa returneze cate cifre impare are n. N fiind un numar natural si nenul. In pascal vă rog.

Answer 1

Răspuns:

program cifreImpare;

var n:integer;

function nrImpare(m:integer):integer;

begin

 if m=0 then nrImpare:=0

 else  

   begin

     nrImpare:=nrImpare(m div 10)+((m mod 10) mod 2);

   end;

end;

begin

 read(n);

 writeln(nrImpare(n));

end.

Explicație: