如何打印可被7整除的数字

Question

是否有任何函数允许我检查x是否可以被任何数字整除？我需要用1：100的整数编写重复循环，并且使用if函数写入所有可以被该范围整除的数字。 这是我走到这一步：

x <- 1 
repeat { 
    print(x) 
    x = x+1 
    if (x > 100) { 
     break 
    } 
} 

它只打印什么，我需要的第一部分。

Answer 1

你不必这么做。使用模运算符%%和R的矢量化之美。

which(1:100 %% 7 == 0) 
# [1] 7 14 21 28 35 42 49 56 63 70 77 84 91 98 

或者，如果你打高尔夫球的代码，使它更短......

which(!1:100 %% 7) 
# [1] 7 14 21 28 35 42 49 56 63 70 77 84 91 98