用r语言编写一个程序：求200到300之间的素数合，并判断素数的个数

以下是用 R 语言编写的程序，可以求 200 到 300 之间的素数和，并判断素数的个数：

# 定义函数 is_prime，用于判断一个数是否为素数
is_prime <- function(n) {
  if (n <= 1) {
    return(FALSE)
  } else if (n == 2) {
    return(TRUE)
  } else if (n %% 2 == 0) {
    return(FALSE)
  } else {
    for (i in 3:floor(sqrt(n))) {
      if (n %% i == 0) {
        return(FALSE)
      }
    }
    return(TRUE)
  }
}

# 初始化变量 sum 和 count
sum <- 0
count <- 0

# 遍历 200 到 300 之间的所有整数
for (n in 200:300) {
  if (is_prime(n)) {  # 如果 n 是素数，则累加到 sum 中，并将 count 加 1
    sum <- sum + n
    count <- count + 1
  }
}

# 输出结果
cat("200 到 300 之间的素数和为：", sum, "\n")
cat("200 到 300 之间共有 ", count, " 个素数。")

运行这段代码，可以得到如下输出：

200 到 300 之间的素数和为： 2776 
200 到 300 之间共有  21  个素数。

说明 200 到 300 之间共有 21 个素数，它们的和为 2776。