(12C) LCM <> GCD

[Gamo]

Program to find LCM and GCD with two integers.

Code:


STO 0
X<>Y
STO 1
X≤Y
X<>Y
X<>Y
 -
LSTx
X<>Y
X=0
GTO 13
GTO 04
X<>Y
STO 2
RCL 0
RCL 1
 x
RCL 2
 ÷
GTO 00

Example:
LCM(256, 562) is 71936 --> 256 ENTER 562 R/S
GCD(256, 562) is 2 -------> X<>Y

LCM(12345, 67890) is 55873470 ---> 12345 ENTER 67890 R/S
GCD(12345, 67890) is 15 -----------> X<>Y

Gamo