Написать программу на АВС.net паскале которая высчитывает произведение первых n-чисел ряда p=2/3*2/5*2/7*..*2/2i+1

Ответ:

Var i,n:integer;

P:=real;

Begin

Read(n);

P:=1.0;

For i:=1 to n do

Begin

P:=p*2/(i+1);

End;

Write (p);

End.