Summe natürlicher Zahlen (Pascal)

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));

Zurück zum Workshop zum Programmingwiki.

Konto registrieren
Anmelden

Summe natürlicher Zahlen (Pascal)

Suche