Ricorrendo al software R:

n <- 0:10; sum( (1/8)^n*(7/8)^(100-n)*choose(100,n)) = 0.2809992 = 28% (arrotondando).