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

Question

Информатика

Аверкий

6 ноября, 15:39

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

+2

Ответы (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