主题:50分悬赏
QUICKBASIC
[专家分:50] 发布于 2009-07-27 20:37:00
输入a,b,c
求三个数的最大公约数
回复列表 (共1个回复)
沙发
1054122 [专家分:750] 发布于 2009-07-27 20:39:00
CLS
DIM a(3)
INPUT a(1), a(2), a(3)
FOR i = 1 TO 3 - 1
FOR j = 1 TO 3 - i
IF a(j) > a(j + 1) THEN SWAP a(j), a(j + 1)
NEXT j
NEXT i
FOR i = 1 TO a(1)
IF a(1) MOD i = 0 AND a(2) MOD i = 0 AND a(3) MOD i = 0 THEN
z = i
END IF
NEXT i
PRINT z
END
我来回复