Primfaktorzerlegung läuft viel zu langsam...

[xZise]

Außerdem wäre es möglich gewesen den Wert einmal in eine Variable zu schreiben

PS: Irgendwie komme ich mit der Erklärung nicht da, weil eine solche Schleife funzt:

Delphi-Quellcode:

j := 2;
for i := 0 to j do
  j := j + 1;

Und er würde da nie rausspringen (außer i ist zu groß )