Определить сумму s=1/2+2/3 + ... + n / (n+1)

Question

Информатика

Галина

31 марта, 17:55

Определить сумму s=1/2+2/3 + ... + n / (n+1)

+1

Ответы (1)

Знаете ответ на вопрос?

Емилия · Answer 1

Var s: real;

i, n: integer;

begin

write ('n = ') ; readln (n) ;

s:=0;

for i:=1 to n do s:=s+i / (i+1) ;

writeln ('сумма: ', s) ;

end.

n = 10

сумма: 7.98012265512266