############## # Exercice 1 ############## binomneg<-function(n,p) { S<-0 E<-0 while(S