PRINT
PRINT "＜ 逆さにして元の数に加えると 333333 になる数 ＞"
PRINT
LET Z=0
FOR a=1 TO 3
   FOR b=0 TO 9
      FOR c=0 TO 9
         FOR d=0 TO 9
            FOR e=0 TO 9
               FOR f=0 TO 3
                  LET X=a*10^5+b*10^4+c*10^3+d*10^2+e*10+f
                  LET Y=f*10^5+E*10^4+d*10^3+c*10^2+b*10+a
                  LET YY$=right$(REPEAT$("0",5)&STR$(Y),6)   ! ０をつけて６桁に
                  IF X+Y=333333 THEN
                     LET Z=Z+1
                     PRINT X;" ＋ ";YY$;" ＝ 333333"
                     PRINT
                  END IF
               NEXT f
            NEXT e
         NEXT d
      NEXT c
   NEXT b
NEXT a
PRINT "以上、";Z;"個あります。"
END



#####################################################################



PRINT
PRINT "＜ 逆さにして元の数に加えると 333333 になる数 ＞"
PRINT
DIM b(6)
LET C=0
FOR j=100000 TO 333333
   LET n$=STR$(j)
   LET X$=n$(1:1)
   LET Y$=n$(6:6)
   IF VAL(X$)+VAL(Y$)<>3 THEN GOTO 10
   LET m=LEN(n$)
   LET Z=0
   FOR i=m TO 1 STEP -1
      LET b(m-i+1)=VAL(mid$(n$,i,1))       ! i 番目の文字を取り出して数化
      LET Z=Z+b(m-i+1)*10^(i-1)
      LET ZZ$=right$(REPEAT$("0",m-1)&STR$(Z),m)    ! ０をつけて m 桁に
   NEXT i
   IF j+Z=333333 THEN
      PRINT j;" ＋ ";ZZ$;" ＝ 333333"
      LET C=C+1
   END IF
10 NEXT j
PRINT
PRINT "以上、";C;"個あります。"
END



#####################################################################



PRINT
PRINT "＜ 逆さにして元の数に加えると 333333 になる数 ＞"
PRINT
DIM S(6)
LET C=0
FOR j=100000 TO 333333
   CALL SUTOL(j,6,S)
   LET Z=0
   FOR i=1 TO 6
      LET Z=Z+S(i)*10^(i-1)
   NEXT i
   IF j+Z=333333 THEN
      PRINT j;" ＋ ";Z;" ＝ 333333"
      LET C=C+1
   END IF
   MAT S=ZER
10 NEXT j
   PRINT
   PRINT "以上、";C;"個あります。"
END

EXTERNAL SUB SUTOL(D,n,T())     ! 数字を桁ごとに配列に格納する
   LET dd=D
   FOR i=n TO 1 STEP -1
      LET T(i)=MOD(dd,10)
      LET dd=INT(dd/10)
   NEXT i
END SUB



#####################################################################



PRINT
PRINT "＜ 逆さにして元の数に加えると 333333 になる数 ＞"
PRINT

LET C=0
FOR i=100000 TO 333333
   CALL sakas(i,j)
   IF i+j=333333 THEN
      PRINT i;" ＋ ";j;" ＝ 333333"
      LET C=C+1
   END IF
NEXT i
PRINT
PRINT "以上、";C;"個あります。"
END

EXTERNAL SUB sakas(x,Y)
LET Z=x
LET Y=0
DO WHILE Z>0
   LET Y=Y*10+MOD(Z,10)
   LET Z=INT(Z/10)
LOOP
END SUB