Mathe Problem 1+2-3 ... +99-100

[Boombuler]

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