PRINT
PRINT "任意に選んだ１桁どうしの数の掛け算"
PRINT "任意に選んだ２桁どうしの数の掛け算"
PRINT "掛け合わせた数の最も大きい桁の数が○である確率を求めます。"
PRINT
DIM A(9,9),T(9),Y(3)
FOR I=1 TO 3
   PRINT "＜";I;"桁の数の掛け算 ＞"
   PRINT
   LET Y(I)=0
   FOR J=1 TO 9
      LET  Z=0
      FOR R=1*10^(I-1) TO 1*10^I-1
         FOR Q=R TO 1*10^I-1
            LET  X$=STR$(R*Q)
            IF VAL(MID$(X$,1,1))=J THEN
               LET  Z=Z+1
               IF I=1 THEN
                  LET A(R,Q)=J
               END IF
            END IF
         NEXT Q
      NEXT R
      LET T(J)=Z
      LET Y(I)=Y(I)+Z
   NEXT J    
   FOR J=1 TO 9
      PRINT "   ";J;
      PRINT ") ";      
      PRINT USING "#####":T(J);
      PRINT "個";
      PRINT USING "#######.#":ROUND(100*T(J)/Y(I),1);
      PRINT "％"
   NEXT J
   IF I=1 THEN
      PRINT
      FOR J=1 TO 9
         PRINT "   ";J;
         PRINT ")  ";
         FOR R=1 TO 9
            FOR Q=R TO 9
               IF A(R,Q)=J THEN
                  PRINT R;"×";Q;"  ";
               END IF
            NEXT Q
         NEXT R
         PRINT
      NEXT J
   END IF
   PRINT
   PRINT
NEXT I
PRINT
PRINT "２桁の数どうしの掛け算になると、最上桁の数は、数の少ないほど確率が高くなります。"
PRINT "３桁以上の数どうしの掛け算も、２桁の数どうしの掛け算とほぼ同じになります。"
PRINT
END