P = (1+1/1) (1+1/2) ... (1+1/N)

составить программу вычисления. на языке паскаль.

Question

Ефросиньюшка

4 мая, 11:28

+2

Ответы (1)

Знаете ответ?

Тереза · 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.

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