x*y=z Lösungsmenge

[mkinzler]

Wohl nur manuell ( Annahme y > x sont x <-> y

Delphi-Quellcode:

for y := z downto x do
  if z mod y = 0 then  x:= z/y;
...

[Edit: to durch downto ersett]