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

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

Question

Станиславка

19 мая, 23:44

+3

Ответы (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)составить программу вычисления. на языке паскаль.