20 lines
242 B
Text
20 lines
242 B
Text
'
|
|
' Greatest Common Divisor
|
|
'
|
|
a%=24
|
|
b%=112
|
|
PRINT "GCD of ";a%;" and ";b%;" is ";@gcd(a%,b%)
|
|
'
|
|
' Function computes gcd
|
|
'
|
|
FUNCTION gcd(a%,b%)
|
|
LOCAL t%
|
|
'
|
|
WHILE b%<>0
|
|
t%=a%
|
|
a%=b%
|
|
b%=t% MOD b%
|
|
WEND
|
|
'
|
|
RETURN ABS(a%)
|
|
ENDFUNC
|