17 lines
346 B
Plaintext
17 lines
346 B
Plaintext
function mcm (m, n)
|
|
if m = 0 or n = 0 then return 0
|
|
if m < n then
|
|
t = m : m = n : n = t
|
|
end if
|
|
cont = 0
|
|
do
|
|
cont += 1
|
|
until (m * cont) mod n = 0
|
|
return m * cont
|
|
end function
|
|
|
|
print "lcm( 12, 18) = "; mcm( 12, -18)
|
|
print "lcm( 15, 12) = "; mcm( 15, 12)
|
|
print "lcm(-10, -14) = "; mcm(-10, -14)
|
|
print "lcm( 0, 1) = "; mcm( 0, 1)
|