Kleinere Zahlen hinzuzählen

[GericasS]

Zitat von Nikolas:

Und wo bleibt der Resourcenschonende Ansatz? (Green IT und so...)

Delphi-Quellcode:

function Summ(n: integer): Integer;
begin
result = n*(n+1)/2.0;
end;

bist du selbst auf diese Formel gekommen oder ist die schon iwo festgelegt ?