# quesiti i) e ii).
nstu <- 400
nrep <- 1000000
x <- rbinom(nrep,size=nstu,prob=10000/25000)
mean(x); var(x); sd(x)
y <- x/nstu*100
mean(y); var(y); sd(y)