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