Untitled

## test scores an entreance exam fits a normal distribution 
## the mean test is score is 67 and sd is 13.7
## calculate the percentage of students scoring 80 or more in the exam

x<-80
mean<-67
sd<-13.7


#USING FUNCTION 
#FOR pnorm
new.function<-function(X,mean,std)
{
  print(pnorm(X,mean,std))
 
  plot(X:100, pnorm(X:100,mean,std),"h")
        
}
new.function (x,mean,sd)