zufall, mit eingeschränkten werten ?

[xineohp]

als Lösung des Problems würde ich empfehlen jede Ziffer einzeln zu generieren diese dann zusammen zusetzen:

Delphi-Quellcode:

var a,b,c,x: integer;
begin
  a := random(4)+1;
  b := random(8)+1;
  c := random(3)+2;
  x := 100*a + 10*b + c;
end;