十進BASIC 第2掲示板 過去ログ

REM ３個の３乗数の和　※10進モードで実行してください。
FOR I=1 TO 100 !1≦I＜J＜K≦100
   FOR J=I+1 TO 100
      FOR K=J+1 TO 100
         LET t=I^3+J^3+K^3
         LET L=1
         DO WHILE L^3<t
            LET L=L+1
         LOOP
         IF L^3=t THEN !条件を満たす
            IF GCD3(I,J,K)=1 THEN PRINT L;I;J;K !倍数を除外
         END IF
      NEXT K
   NEXT J
NEXT I
END

EXTERNAL FUNCTION GCD3(a,b,c) !最大公約数（３つの場合）
LET GCD3=GCD(GCD(a,b),c)
END FUNCTION

EXTERNAL FUNCTION GCD(a,b) !最大公約数
DO UNTIL b=0
   LET t=b
   LET b=MOD(a,b)
   LET a=t
LOOP
LET GCD=a
END FUNCTION