Nochmal:
Delphi-Quellcode:
Zahl1:=random(4)+2;
Zahl2:=round(random(20)/Zahl1)*Zahl1;
das ist ja schon mal sehr gut.
Aber hier ist ja dann immernoch ein Problem mit der 0 !
Soll ich das dann einfach mit einer if... bedingung wiederholen, wenn quotient =0?