INPUT PROMPT "じゃんけんする人数は？  ":n
LET A=2^n  ! パーが全くない場合の数
LET B=1    ! チョキばかりの場合の数
LET C=1    ! グーばかりの場合の数
LET D=3*(A-B-C) !あいこにならない場合の数
LET E=3^n    !１回の勝負での手の出し方の場合の数
LET F=D/E    ! 1回の勝負で脱落者がでる確率
LET G=1-F    ! 1回の勝負であいこになる確率
LET H=G^(i-1)*F    ! i回目のじゃんけんで初めて脱落者が出る確率
LET Z=1
LET Y=0
FOR i=1 TO 20
   LET Y=Y+ROUND(G^(i-1)*F,4)*100
   PRINT USING "##":Z;
   PRINT "回目のじゃんけんまでに脱落者が出る確率は"
   PRINT "      ";Y;"%"
   PRINT
   LET Z=Z+1
NEXT i
END