Problem 16 
n=20;  p=0.1;  dist=BinomialDistribution[n,p];
BarChart[Table[PDF[dist,k],{k,0,8}],BarLabels->Range[0,8]]

[Graphics:../Images/prob_gr_38.gif]

1-CDF[dist,2]
[Graphics:../Images/prob_gr_39.gif]

Converted by Mathematica      February 10, 2001