PRINT
PRINT "  0 〜 9 の数字をすべて使って作られる10桁の数はすべて９の倍数であるが、"
PRINT "0 〜 9 の数字をすべて使って作られる10桁の数で９の６乗の倍数になって"
PRINT "いるものをすべて記述せよ。"
PRINT
PRINT "9^6 ＝";9^6
PRINT
DIM Flag(0 TO 9)
LET C=1
FOR i=INT(1023456789/9^6)+1 TO INT(9876543210/9^6)
   LET T=i*9^6
   LET TT=T
   MAT Flag=ZER
   FOR j=1 TO 10
      LET w=MOD(T,10)      ! w は T の一の位の数
      IF Flag(w)=1 THEN EXIT FOR    ! もし同じ数があるなら NEXT j の次の行へ
      LET Flag(w)=1          ! フラッグを立てる
      LET T=INT(T/10)     ! T を一の位の数を削除した数にする
   NEXT j
   IF j=11 THEN
      PRINT USING "##":C;
      PRINT "： ";
      PRINT TT;" / 9^6  ＝ ";TT/9^6
      LET C=C+1
   END IF
NEXT i
PRINT
END