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

[glkgereon]

und nocheinmal werde ich meine Lösung wiederholen, da sie auch für ungerade anzahlen funktioniert und kurz ist und überhaupt und so!!!

Delphi-Quellcode:

function WieHeisstDas(Anfang, N: Int64):Int64; 
begin 
//Für gerades N : Result:=Anfang-(N Div 2); 
//Für jedes N 
  Result:=Anfang-(N Div 2) + (N Mod 2) * (Anfang + N); 
end;

falls n gerade ist, kommt genau das obere raus, da N Mod 2 = 0 ist...
anderenfalls kommt 1 raus, und eine ungerade zahl wird immer addiert, A + N

in diesem Fall würde man 1,99 übergeben (erste Zahl: 1, Weitere Zahlen: 99)

ich hoffe da sind keine fehler mehr drin (ich liebe es immer wenn irgendwo ein (x+1) oder (x-1) fehlt )