Pascal-Summe ganzer Zahlen

Aus ProgrammingWiki

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(gausssumme(100));

Konto registrieren
Anmelden

Pascal-Summe ganzer Zahlen

Suche