20 lines
277 B
Text
20 lines
277 B
Text
proc gcd(word m, n) word:
|
|
word t;
|
|
while n /= 0 do
|
|
t := m;
|
|
m := n;
|
|
n := t % n
|
|
od;
|
|
m
|
|
corp
|
|
|
|
proc lcm(word m, n) word:
|
|
if m=0 or n=0
|
|
then 0
|
|
else m*n / gcd(m,n)
|
|
fi
|
|
corp
|
|
|
|
proc main() void:
|
|
writeln(lcm(12, 18))
|
|
corp
|