高校数学の質問スレ Part423

>>54
検算に乱数発生させてシミュレーションしたら27になった。

https://i.imgur.com/PhBNNdp.png

オマケ　Rのコード
sim=\(){
b=sum(sample(c(rep(1,50),rep(0,50)),50))
B=c(rep(1,b),rep(0,50-b))
flg<-sum(sample(B,30))==12
while(!flg){
b=sum(sample(c(rep(1,50),rep(0,50)),50))
B=c(rep(1,b),rep(0,50-b))
flg<-sum(sample(B,30))==12
}
50-b
}
y=replicate(1e5,sim())
hist(y)
summary(y)