r语言编写程序查找200以内能被3整除的数，将其存储在一个向量内并用print()函数输出到屏幕上。

好的，这是一个编程问题，需要使用R语言编写程序解决。以下是程序代码：

vec <- c() # 创建一个空向量

for (i in 1:200) { # 遍历1到200的每个数
  if (i %% 3 == 0) { # 如果i能被3整除
    vec <- append(vec, i) # 将i添加到向量中
  }
}

print(vec) # 输出向量到屏幕上

以上代码用for循环遍历1到200的每个数，如果可以被3整除就存储在向量中，最后通过print函数输出向量内容到屏幕上。