>>255
1億回シミュレーションして検算

> n=1000
> k=1e8
> p=rbinom(k,n,0.3)/n
> mean(p)
[1] 0.2999973
> var(p)
[1] 0.0002100855
> mean(p>=0.33)
[1] 0.02158068