IvanTikhonov_ Assignment 1

factorial_12 <- 1 
for (i in 2:12) {factorial_12 <- factorial_12 * i} 
factorial_12

## [1] 479001600

factorial_12 == factorial(12)

## [1] TRUE

num_seq <- seq(from = 20, to = 50, by = 5)
num_seq

## [1] 20 25 30 35 40 45 50

quadratic <- function(a, b, c) {
solution_1 <- (-b + sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
solution_2 <- (-b - sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
return(c(solution_1, solution_2))}

quadratic(a = 4, b = 10, c = 6)

## [1] -1.0 -1.5