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
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.
beim Probieren hat sich ergeben, dass a nich kleiner sein muss!!!!
vielen Dank
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Computer
v:=;
Fehlt da nicht was?
egal was ich hinschreibe kommt etwas falsches raus, deswegen leer!!!