Question

Scrie un program Pascal utilizând un subprogram recursiv care calculează
produsul: P(n)=1*4*7*10..*(3n-2)

Answer 1

Răspuns:

program produsRecursiv;

var n:integer;

function P(n:integer):integer;

begin

 if (n=1) then P:=1

 else P:=(3*n-2)*P(n-1);

end;

begin

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

 writeln(P(n));

end.

Explicație: