Найдите рекурсивную и не рекурсивную подпрограмму , которая вычисляет произведение Р(n) = 2*4*6*...*2n’
Нужно очень срочно !!!

Ответ:

1) не рекурсивная

Begin

P=1;

Read(n);

For i:= 1 to n do

P:=p*2*i;

End.

2)рекурсивная

Function p(n:integer)

Begin

If n=1 then p:=1

Else p:=2*n*p(n-1);

End;