Summe natürlicher Zahlen (Pascal)

Aus ProgrammingWiki

Archivierte Version vom 2013-03-14T14:32:27+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(gausssumme(100));

Zurück zum Workshop zum Programmingwiki.

Summe natürlicher Zahlen (Pascal)

Suche