n=1 からn=10までのシミュレーション結果
> apply(data,1,summary)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
Min. 0.000000 0.00000 0.000000 0.000000 0.000000 1.000000 2.000000 3.000000 4.000000 5.000000
1st Qu. 0.000000 1.00000 2.000000 2.000000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000
Median 1.000000 1.00000 2.000000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000 7.000000
Mean 0.666639 1.33302 2.000166 2.666532 3.332059 3.998781 4.665502 5.334263 6.001115 6.666646
3rd Qu. 1.000000 2.00000 3.000000 3.000000 4.000000 5.000000 5.000000 6.000000 7.000000 7.000000
Max. 1.000000 2.00000 3.000000 4.000000 5.000000 6.000000 7.000000 8.000000 9.000000 10.000000

問題に適用すると
> mean(data[2,]==2) #(1)
[1] 0.432332
> mean(data[4,]>=2) #(2)
[1] 0.915229
> mean(data[10,]>=8) #(3)
[1] 0.210001

まあ、分数解と近似している。