Zitat von
The Riddler:
Delphi-Quellcode:
temp := zahl;
for i := 0 to temp*2 do
Zahl := Zahl - i;
Lässt sich noch verbessern schätze ich.
Bei aller Freude aber das hier funktioniert nicht
Angenommen wir nehmen 1 dann ist temp vor der schleife 1.
Die schleife läuft dann von 0 bis temp(1)*2=2
erster durchlauf
zahl := zahl(1) - i(0) = 1
zweiter durchlauf
zahl := zahl(1) - i(1) = 0
dritter durchlauf
zahl := zahl(0) - i(2) = -2