Sum[Binomial[1000, r] (3/10)^r (7/10)^(1000 - r), {r, 330, 1000}]