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

Question

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

Answer 1

Var p:real;
n,i:integer;
begin
readln (n);
p:=1;
for i:=1 to n do
p:=p*(1+(1/i));
writeln (p);
end.