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.