problem-5.10

problem-5.10  We can answer this using a sum with the following:
> sum(dbinom(k, size=100000, prob=1/2))
[1] 0.7952