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

0 голосов
42 просмотров

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

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


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

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.

Доцент (53.1k баллов)
...