Fakultät mit "repeat until" "

[Phoenix]

Also Hausaufgaben machen wir eher nicht.

Repeate doch so lange, bis die zahl von 1 auf den Zielwert gelaufen ist.

Achtung: Pseudocode! Der taugt so nicht, ist nur zum zeigen wie's geht:

Delphi-Quellcode:

zahl := 1;

repeat

  inc(zahl);
until zahl >= fakultaet;