Delphi-Quellcode:
randomize;
repeat
if h>20 then x:=random(123) else x:=random(111);
inc(x);
until not (x in [61..69]);
Also bei mir ist das keine Endlosschleife...
Der Fehler lag wohl in der not-Bedingung...
Denn:
not bindet stärker als
in und wird zuerst ausgeführt...
aus 64 wird z.B. -65, wobei dann natürlich keine Zahl in die Bedingung passt. Wenn du aber Klammern setzt, wird erst auf
in geprüft und dann der entstehende wert ge-not-ed