Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+....

0 интересует 0 не интересует
73 просмотров

Вычислите сумму первых n элементов

1-1/2+1/3-1/4+1/5-1/6+....


Информатика (61 баллов)
Дан 1 ответ
0 интересует 0 не интересует
Доцент (53.1k баллов)
 
Правильный ответ

var i,n,s:nteger;

BEGIN

  read(n);

  for i := 1 to n do

    if i mod 2 = 0 then s:= s-1/i;

    else s:= s+1/i;

 writeln(s);

END.

...