8 lines
167 B
Text
8 lines
167 B
Text
100 DEF LCM(A,B)=(A*B)/GCD(A,B)
|
|
110 DEF GCD(A,B)
|
|
120 DO WHILE B>0
|
|
130 LET T=B:LET B=MOD(A,B):LET A=T
|
|
140 LOOP
|
|
150 LET GCD=A
|
|
160 END DEF
|
|
170 PRINT LCM(12,18)
|