чередование знаков цикле Опции

[BoBaH]

такая вот задача:
1+1/2+1/3-1/4-1/5+1/6+1/7-1/8-1/9+....(+)(-)1/1000

как здесь в цикле записать чередование знаков?

[dushik]

Попробуй как-нибуть так:

Код

for i:=1 to 1000 do
begin
k:=k+0.25;
if (k-round(k)=0.75) or (k-round(k)=0.00) then
t:=t-1/i
else
t:=t+1/i;
end;

[zx1024]

Код

sum := 1;
for i := 2 to 1000 do
 sum := sum + ((i and 2) - 1) / i