サイコロを1000回振って出た目の順に数列として記録する。
その数列に1,2,3,4,5,6の数列が含まれる確率をP1、
1,1,1,1,1,1が含まれる(7個以上連続してもよい)確率をP2
1,1,1,1,1,1が含まれる(7個以上連続してはいけない)確率をP3とする
P1,P2,P3を小さい順に並べよ

オマケ（可読性を無視してone-liner化）
P1=995/6^(1000-994)
P2=mean(replicate(1e5, (with(rle(sample(6,1000,r=T)),cbind(values,lengths)[values==1,])[,2]>=6) |> any()))
P3=mean(replicate(1e5, (with(rle(sample(6,1000,r=T)),cbind(values,lengths)[values==1,])[,2]==6) |> any()))
c(P1,P2,P3)

東大卒の答が投稿されたら、検証してみようっと