Ich gehe mal davon aus, dass du das kleinste gemeinsame Vielfache suchst. Ich habe hier noch einen Python-Code rumliegen, ich denke aber kaum, dass ich den sinnvoll in Delphi übersetzen kann. Habe schon seit 2 Jahren kein Delphi mehr...
Code:
def kgv(a, b):
return abs(a * b) / ggt(a, b)
def ggt(a, b):
while b != 0:
h = a % b
a = b
b = h
return a
Vielleicht kannst du damit was anfangen?
Mit freundlichen Grüßen,
Valle