DIM T(50),S(50)

FOR i=1 TO 50
   LET T(i)=9^(i-1)/10^i
   IF i=1 THEN
      LET S(i)=T(i)
   ELSE
      LET S(i)=S(i-1)+T(i)
   END IF
NEXT i
PRINT "       当たる確率　 累計確率"
FOR i=1 TO 50
   PRINT USING "##":i;
   PRINT "回目  ";
   PRINT USING "##.###":ROUND(T(i)*100,3);
   PRINT "%      ";
   PRINT USING "##.###":ROUND(S(i)*100,3);
   PRINT"%"
NEXT i
END