Wie berechne ich alle Summen, Mittelwerte von 1 bis "Zahl"

[mkinzler]

Wie wäre es, wenn du anstatt eine nicht berechnete Summe, in der Schleife diese berechnen würdest?

Delphi-Quellcode:

for i := 1 to zahl1 do
begin
    Summe1 := Summe1 + i;
end;