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
)