Also wenn du dir das mal vorstellst was du da machst sieht das ungefähr so aus:
G := 1 - 2 + 2 - 3 + 3 - 4 + 5 - 6...
also
Delphi-Quellcode:
var
g:integer;
begin
for i := 1 to 100 do
if (i mod 2 = 0) or (i = 1) then
g := g + i
else
g := g - i;
end;
das sollte besser gehn...
habs aber net getestet nur fix runtergetippt...
PS: Poste das obwohl wieder jemand schneller war...
Greetz
Boombuler