1.1:Write a loop that calculates 12-factorial

calc<-1
for(i in c(1:12)) 
{
  calc<-calc*(i)
}
calc
## [1] 479001600

1.2:Show how to create a numeric vector that contains the sequence from 20 to 50 by 5

x<- seq(20,50,5)
x
## [1] 20 25 30 35 40 45 50
class(x)
## [1] "numeric"

1.3:Create the function “factorial” that takes a trio of input numbers a, b, and c and solve the quadratic equation. The function should print as output the two solutions.

factorial<- function(a,b,c)
{
    
  S1<-((-b)+sqrt((b^2)-4*a*c))/(2*a)
  print(S1)
  
  S2<-((-b)-sqrt((b^2)-4*a*c))/(2*a)
  print(S2)
  
}
factorial(1,3,-4)
## [1] 1
## [1] -4