PROGRAM TO FIND THE GREATEST COMMON DIVISOR (2020-03-22 18:57 by (del#106415) #84601)
!PROGRAM TO FIND ONLY THE GREATEST COMMON DIVISOR
CLEAR
INPUT PROMPT "HOW MANY NUMBERS? (2,3,4...) = " :G
DIM Z(G)
CLEAR
LET B = 999999999
FOR K = 1 TO G
INPUT PROMPT "NUMBER "&STR$(K)&" = ":L
LET Z(K) = L
IF Z(K) < B THEN LET B = Z(K)
NEXT K
LET E = 1
FOR C = 1 TO B
FOR D = 1 TO G
IF MOD(Z(D) , C ) = 0 THEN
LET E = E + 1
ELSE
LET E = E -1
END IF
NEXT D
IF E = G THEN
LET F = C
ELSE
LET E = 0
END IF
NEXT C
PRINT
PRINT "G.C.D. = ";F
END
