P=(1+1/1)(1+1/2)...(1+1/N) составить программу вычисления. на языке паскаль.

В программе использован цикл for, потому что число операций умножения известно — оно равно введенному числу N.

program prod;

var N,i: integer; //число и параметр цикла

p: real;

begin

writeln(\'Введите число N\');

readln(N); //ввод числа N

p:= 1;// начальное значение произведения

for i:= 1 to N do p:=p*(1+1/i);

writeln(p);

end.