23 lines
396 B
Plaintext
23 lines
396 B
Plaintext
10 PRINT "LCM(35, 21) = ";
|
|
20 LET MLCM = 35
|
|
30 LET NLCM = 21
|
|
40 GOSUB 200: ' Calculate LCM
|
|
50 PRINT LCM
|
|
60 END
|
|
|
|
195 ' Calculate LCM
|
|
200 LET MGCD = MLCM
|
|
210 LET NGCD = NLCM
|
|
220 GOSUB 400: ' Calculate GCD
|
|
230 LET LCM = MLCM / GCD * NLCM
|
|
240 RETURN
|
|
|
|
395 ' Calculate GCD
|
|
400 WHILE MGCD <> 0
|
|
410 LET TMP = MGCD
|
|
420 LET MGCD = NGCD MOD MGCD
|
|
430 LET NGCD = TMP
|
|
440 WEND
|
|
450 LET GCD = NGCD
|
|
460 RETURN
|