Summen zwischen 2 Zahlen mit Repeat-Until

[Deep-Sea]

Zitat von Sherlock:

Geil, in welcher Delphi-Unit steht denn diese GaußscheSumme zur Verfügung?

Delphi-Quellcode:

unit SherlocksSpezialUnit;

interface

function GaussscheSumme(N: Integer): Int64;

implementation

function GaussscheSumme(N: Integer): Int64;
begin
  Result := (N * (N + 1)) div 2;
end;

end.

Na da, in SherlocksSpezialUnit