Division

[negaH]

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