Ecuacion cuadratica

EC<-function(A,B,C){
  if(B^2 - 4*A*C < 0){
    message("Raices complejas")
  }
  else{
   raiz_1 = (-B + sqrt(B^2 - 4*A*C))/(2*A)
  raiz_2 = (-B - sqrt(B^2 - 4*A*C))/(2*A) 
 Raices= c(raiz_1,raiz_2)
 print(Raices)
  }
  }
  EC(2,3,8)

## Raices complejas

  EC(5,8,1)

## [1] -0.136675 -1.463325