Вопрос пользователя:
Вычислите сумму первых n элементов
1-1/2+1/3-1/4+1/5-1/6+….
Илюха отвечает:
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.