function gauss(n: Integer): double; var i: Integer; summe: Double; begin summe:=0; for i:=0 to n do summe:=summe+i; result:=summe; end;
Quelltext überprüfen:
jetzt prüfen
ausführen
Link zur Schulseite