Question

Program recursiv clasa 11 functie teza

Answer 1

program SumaCuRec;

var n:integer;

function suma(m:integer):real;

begin

  if m<3 then suma:=18

  else suma:=suma(m-1) + 1/m;

end;

begin

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

  writeln('suma 18+ 1/3 + 1/4 + 1/5 + ... + 1/n = ', suma(n));

end.