回 帖 发 新 帖 刷新版面

主题:50分悬赏

输入a,b,c
求三个数的最大公约数

回复列表 (共1个回复)

沙发

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

我来回复

您尚未登录,请登录后再回复。点此登录或注册