Delphi-Quellcode:
X := Random(1000) +1;
Y := Random(1000) +1;
Z := X div Y;
X wird "rund" gemacht. Sollte das nicht das sein was du willst dann ist das nächste richtig
Delphi-Quellcode:
Y := Random(1000) +1;
Z := Random(1000) +1;
X := Z * Y;
X ist nun immer ohne Rest durch Z und Y teilbar, somit auch Z := X div Y und 0 == X mod Y.
Gruß Hagen