Wie berechnet man das kleinste gemeinsame Vielfache über while-do-schleife im Turbo-Pascal?

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

v:=1;

while ((v*b) mod a) <> 0 do v:=v+1;

v:=v*b;

writeln

Anmerkung: a muss kleiner b eingegeben sein, ganzzahling und größer null.


bandarine 
Beitragsersteller
 28.11.2019, 01:52

beim Probieren hat sich ergeben, dass a nich kleiner sein muss!!!!

vielen Dank

0
v:=;

Fehlt da nicht was?


bandarine 
Beitragsersteller
 28.11.2019, 00:34

egal was ich hinschreibe kommt etwas falsches raus, deswegen leer!!!

0