Problem 1:

This is a loop to find out 12!

n <- 1
factorialAnswer<-1
for(n in 1:12) {
  factorialAnswer <- n*factorialAnswer
                    }

factorialAnswer
## [1] 479001600

Problem 2:

This creates a numeric vector that contains the sequence from 20 to 50 by 5.

seq(from=20, to=50, by=5)
## [1] 20 25 30 35 40 45 50

Problem 3:

This creates a function, quadratic, that solves the quadratic function for values a, b and c.

quadratic <-function(a,b,c) {
  d<-b^2-4*a*c
if(d<0)                         {
  d<-sqrt(-d)
  e<-paste(d,"i")
  f<-(-b)/(2*a)
  g<-paste(f,"+/-", e)
  print(g)
                                 }
else                            {
  f<- (sqrt(d)-b)/(2*a)
  print (f)
  g<- (-sqrt(d)-b)/(2*a)
  print(g)
                                  }
}

quadratic(5,3,1)
## [1] "-0.3 +/- 3.3166247903554 i"
quadratic (2,9,3)
## [1] -0.3625414
## [1] -4.137459
quadratic (3,-3,-18)
## [1] 3
## [1] -2
quadratic (1,2,2)
## [1] "-1 +/- 2 i"