ReplaceAll[Piecewise[{{0.4^x (1 - 0.4)^(5 - x) Binomial[5, x], 0 <= x <= 5}}, 0], {x -> 1}]