dNorm<-function(k,p,n)
{
a<-pnorm(k+0.5,mean=n*p,sd=sqrt(n*p*(1-p)));
return (a)
}
dBin<-function(k,p,n)
{
return (sum(pBin(0:k,p,n)))


}


printComp<-function(k,p,n)
{
a<-dNorm(50,0.5,100);
b<-dBin(50,0.5,100);
print("Według rozkładu Normalnego:");
print(a);
print("Według rozkładu Bernoulliego:");
print(b);

}
printComp(5,0.5,10);