Question

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

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

Answer 1

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.