OPTION BASE 0
PRINT
PRINT "平成２４年度 大学入試センター試験 数学 情報関係基礎 より"
PRINT
PRINT "次のような７個の分銅があります。"
PRINT
PRINT "    1ｇ    3g     9g    27g    81g    243g   729g"
PRINT
PRINT "分銅の質量は 3^n (ｇ) （ ただし n は自然数 ）です。"
PRINT
DIM K(7)
FOR Q=1 TO 1093
   MAT K=ZER
   LET I=0
   LET X=Q
   DO WHILE X>0
      LET K(I)=MOD(X,3)
      IF K(I)=2 THEN
         LET K(I)=-1
         LET X=INT(X/3)+1
      ELSE
         LET X=INT(X/3)
      END IF
      LET I=I+1
   LOOP
   LET C=0 
   FOR J=0 TO 7
      LET C=C+K(J)*3^J
   NEXT J
   PRINT USING "####":C;
   PRINT " (g) ＝ ";
   FOR J=7 TO 0 STEP -1
      IF K(J)=1 THEN
         PRINT " + ";3^J;
      ELSEIF K(J)=-1 THEN 
         PRINT " - ";3^J;
      END IF
   NEXT J
   PRINT
NEXT Q
END