Perr[n_,p_]:=Module[
{t=Floor[(n-1)/2]},
Sum[
Binomial[n,k]p^k(1-p)^(n-k),
{k,t+1,n}
]
];

Table[Plot[Perr[n,p],{p,0,.5}],{n,1,23,2}]