Bergervei/Pascal-Summe ganzer Zahlen

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="5123fe108ab14">
function gausssumme(n: integer): double;
 var i    : integer;
     summe: double;
 begin
  summe:=0;
  for i:=1 to n do
   summe:=summe+i;
  result:=summe;
 end;
</code>

<run id="5123fe108ab80">
writeln(gaussumme(100));
</run>