PRINT
PRINT "巡回転数の和"
PRINT
PRINT "12345 の「５分の１巡回転数」を 23451 とします。"
PRINT "12345 の「５分の３巡回転数」を 45123 とします。"
PRINT
PRINT "「５分の１から５分の４までの巡回転数」の総和が２０万になる５桁の数は？"
PRINT 
DIM A(5)
FOR i=10000 TO 99999
   LET A(1)=i
   LET C=0
   FOR j=1 TO 4
      LET A(j+1)=MOD(A(j),10000)*10+INT(A(j)/10000)
      LET C=C+A(j+1)
      IF C>200000 THEN GOTO 10
   NEXT j
   IF C=200000 THEN
      LET X=A(1)
      FOR k=2 TO 5
         PRINT A(k)
      NEXT k
   END IF
10 NEXT i
   PRINT
   PRINT "答え：";X
   PRINT
END