DiscretePlot[prob x >= j for x binomial with n = 100 and p = 0.01, {j, 1, 5} ]