\[C_{n,x}= \binom{n}{x}= \frac{n!}{x!(n-x)!}\]
k <- 2
n <- 8
c <- n - k
a <- 1
n1 <- n
for (i in 1:(n-1)){
n1 <- n1*a
a <- a + 1
}
b <- 1
k1<-k
for (j in 1:(k-1)){
k1 <- k1*b
b <- b + 1
}
d <- 1
c1 <- c
for (m in 1:(c-1)){
c1 <- c1*d
d <- d + 1
}
z <- k1*c1
w <- n1 / z
print(paste("El combinatorio de",n,"&",k,"es:"))
## [1] "El combinatorio de 8 & 2 es:"
print(paste(n1,"/",z))
## [1] "40320 / 1440"
print(w)
## [1] 28