@valle
... also Dein
Delphi-Quellcode:
while zahl % m != 0:
zahl = zahl + 1
ist äquivalent zu
Delphi-Quellcode:
zahl, m: integer;
zahl := ((zahl + m-1) div m ) * m;
oder hab ich was falsch verstanden ?
Wenn es zeitkritisch ist kann man daran noch einiges optimieren