WS1 Teilnehmer14

Aus ProgrammingWiki

Archivierte Version vom 2013-03-13T12:14:47+00:00. Aktuelle Version

Das ist ein Test

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;