PRINT 
PRINT "０〜９のカードが１枚づつある。"
PRINT "任意に３枚選んだ時、隣り合う数が含まれている確率？"
PRINT
LET Q=0
FOR a=0 TO 5
   FOR b=a+2 TO 7
      FOR c=b+2 TO 9
         IF (ABS(a-b)-1)*(ABS(b-c)-1)*(ABS(c-a)-1)<>0 THEN
            LET Q=Q+1
         END IF
      NEXT c
   NEXT b
NEXT a
LET x=COMB(10,3)
PRINT "１０枚から３枚を選ぶ組み合わせの数：";x;"とおり"
PRINT "隣り合う数が含まれている場合の数： ";x-Q;"とおり"
PRINT "求める確率：";ROUND((x-Q)/x,3)*100;"%"
PRINT
END



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



PRINT 
PRINT "０〜９のカードが１枚づつある。"
PRINT "任意に３枚選んだ時、隣り合う数が含まれている確率？"
PRINT
LET Q=0
FOR a=0 TO 7
   FOR b=a+1 TO 8
      FOR c=b+1 TO 9
         IF (ABS(a-b)-1)*(ABS(b-c)-1)*(ABS(c-a)-1)=0 THEN
            LET Q=Q+1
         END IF
      NEXT c
   NEXT b
NEXT a
LET x=COMB(10,3)
PRINT 
PRINT "１０枚から３枚を選ぶ組み合わせの数：";x;"とおり"
PRINT "隣り合う数が含まれている場合の数： ";Q;"とおり"
PRINT "求める確率：";ROUND(Q/x,3)*100;"%"
PRINT
END