#9.1
ns=52
na=26
pa=na/ns
nb=4
pb=nb/ns
nanb=2
panb=nanb/ns
paub=pa+pb-panb
cat(paub)

#9.4
ns=choose(50, 8)
na=choose(30, 8)
pa=na/ns
nb=choose(30, 4)*choose(20, 4)
pb=nb/ns
nc=choose(20, 6)*choose(30, 2)+choose(20, 8)+choose(20, 7)*choose(30, 1)
pc=nc/ns

cat("\n pa is",pa)
cat("\n pb is", pb) 
cat("\n pc is ",pc)

#9.5
ns=factorial(8)
na=choose(5,1)*choose(4,1)*factorial(6)