Manipulate[{DiscretePlot[PDF[BinomialDistribution[n,p],k],{k,0,n},PlotRange->All,PlotMarkers->Automatic],"n="<>ToString[n],"p="<>ToString[p],"μ="<>ToString[Mean[BinomialDistribution[n,p]]],"(σ^2)="<>ToString[Variance[BinomialDistribution[n,p]]],"Skewness:"<>ToString[Skewness[BinomialDistribution[n,p]]],"Kurtosis:"<>ToString[Kurtosis[BinomialDistribution[n,p]]]},{{n,5},1,40,1},{{p,0.5},0,1}]

Manipulate[{DiscretePlot[CDF[BinomialDistribution[n,p],k],{k,0,n},PlotRange->All,ExtentSize->Right,PlotMarkers->Automatic],"n="<>ToString[n],"p="<>ToString[p],"μ="<>ToString[Mean[BinomialDistribution[n,p]]],"(σ^2)="<>ToString[Variance[BinomialDistribution[n,p]]],"Skewness:"<>ToString[Skewness[BinomialDistribution[n,p]]],"Kurtosis:"<>ToString[Kurtosis[BinomialDistribution[n,p]]]},{{n,5},1,40,1},{{p,0.5},0,1}]

Manipulate[{DiscretePlot[PDF[BinomialDistribution[n,λ/n],k],{k,0,n},PlotRange->{{0,40},All},PlotMarkers->Automatic],"n="<>ToString[n],"p="<>ToString[λ/n],"λ="<>ToString[λ],"μ="<>ToString[Mean[BinomialDistribution[n,λ/n]]],"(σ^2)="<>ToString[Variance[BinomialDistribution[n,λ/n]]],"Skewness:"<>ToString[Skewness[BinomialDistribution[n,λ/n]]],"Kurtosis:"<>ToString[Kurtosis[BinomialDistribution[n,λ/n]]]},{{n,5},1,40,1},{{λ,0.5},0,40}]

Manipulate[{DiscretePlot[CDF[BinomialDistribution[n,λ/n],k],{k,0,n},PlotRange->{{0,40},All},ExtentSize->Right,PlotMarkers->Automatic],"n="<>ToString[n],"p="<>ToString[λ/n],"λ="<>ToString[λ],"μ="<>ToString[Mean[BinomialDistribution[n,λ/n]]],"(σ^2)="<>ToString[Variance[BinomialDistribution[n,λ/n]]],"Skewness:"<>ToString[Skewness[BinomialDistribution[n,λ/n]]],"Kurtosis:"<>ToString[Kurtosis[BinomialDistribution[n,λ/n]]]},{{n,5},1,40,1},{{λ,0.5},0,40}]