高校数学の質問スレ Part437

>>50
Rで1000万回シミュレーション
> mean(replicate(10^7,any(table(sample(365,50,replace=TRUE))>=3)))
[1] 0.1264372