30 lines
451 B
Plaintext
30 lines
451 B
Plaintext
MODULE LeastCommonMultiple;
|
|
|
|
FROM STextIO IMPORT
|
|
WriteString, WriteLn;
|
|
FROM SWholeIO IMPORT
|
|
WriteInt;
|
|
|
|
PROCEDURE GCD(M, N: INTEGER): INTEGER;
|
|
VAR
|
|
Tmp: INTEGER;
|
|
BEGIN
|
|
WHILE M <> 0 DO
|
|
Tmp := M;
|
|
M := N MOD M;
|
|
N := Tmp;
|
|
END;
|
|
RETURN N;
|
|
END GCD;
|
|
|
|
PROCEDURE LCM(M, N: INTEGER): INTEGER;
|
|
BEGIN
|
|
RETURN M / GCD(M, N) * N;
|
|
END LCM;
|
|
|
|
BEGIN
|
|
WriteString("LCM(35, 21) = ");
|
|
WriteInt(LCM(35, 21), 1);
|
|
WriteLn;
|
|
END LeastCommonMultiple.
|