Pascal-Summe ganzer Zahlen

Aus ProgrammingWiki

Archivierte Version vom 2013-02-19T22:34:56+00:00. Aktuelle Version

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;

writeln(gaussumme(100));

Konto registrieren
Anmelden

Pascal-Summe ganzer Zahlen

Suche