You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
379 B
R
29 lines
379 B
R
Find factors of a number
|
|
print_factors <- function(x) {
|
|
print(paste("The factors of",x,"are:"))
|
|
for(i in 1:x) {
|
|
if((x %% i) == 0) {
|
|
print(i)
|
|
}
|
|
}
|
|
}
|
|
Output
|
|
|
|
> print_factors(120)
|
|
[1] "The factors of 120 are:"
|
|
[1] 1
|
|
[1] 2
|
|
[1] 3
|
|
[1] 4
|
|
[1] 5
|
|
[1] 6
|
|
[1] 8
|
|
[1] 10
|
|
[1] 12
|
|
[1] 15
|
|
[1] 20
|
|
[1] 24
|
|
[1] 30
|
|
[1] 40
|
|
[1] 60
|
|
[1] 120 |