Wie berechnet man das kleinste gemeinsame Vielfache über while-do-schleife im Turbo-Pascal?
Hallo,
ich habe Program erstellt, aber es geht irgendwie nicht. Wäre nett wenn ihr mich korrigieren würdet.
Danke
2 Antworten
Vom Beitragsersteller als hilfreich ausgezeichnet
![](https://images.gutefrage.net/media/user/iqKleinerDrache/1569246496760_nmmslarge__3_0_160_160_b62c7a52995284adf52d0d38e9cb1bc5.png?v=1569246497000)
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.
![](https://images.gutefrage.net/media/default/user/15_nmmslarge.png?v=1551279448000)
beim Probieren hat sich ergeben, dass a nich kleiner sein muss!!!!
vielen Dank
![](https://images.gutefrage.net/media/user/Roderic/1444750288_nmmslarge.jpg?v=1444750288000)
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Computer
v:=;
Fehlt da nicht was?
![](https://images.gutefrage.net/media/default/user/11_nmmslarge.png?v=1551279448000)
egal was ich hinschreibe kommt etwas falsches raus, deswegen leer!!!