Question

PASCAL

Scrieţi un subprogram recursiv care: a) calculează suma S(n) = 1 + 3 + 5 + ... + (2n – 1);

Answer 1

 program recursie;

 var n: integer;

 function rec(m:integer):integer;

 begin

   if m=1 then rec:=1

   else rec:=rec(m-1)+(2*m-1);

end;

 

begin

  write('n= '); read(n);

  writeln ('suma= ', rec(n));

end.