r语言分别使用for循环，while循环以及repeat循环求前20个整数的奇数相乘结果以及偶数相乘结果

在R语言中，我们可以使用`for`、`while`和`repeat`循环来实现这个任务。这里我会分别展示如何计算前20个整数的奇数相乘结果（`odd_product`）和偶数相乘结果（`even_product`）。

1. **for循环示例**:

odd_product <- 1
even_product <- 1

for (i in 1:20) {
  if (i %% 2 == 1) { # 判断是否为奇数
    odd_product <- odd_product * i
  } else if (i %% 2 == 0) { # 判断是否为偶数
    even_product <- even_product * i
  }
}

cat("奇数相乘结果:", odd_product)
cat("\n偶数相乘结果:", even_product)

2. **while循环示例**:

i <- 1
odd_product <- 1
even_product <- 1

while (i <= 20) {
  if (i %% 2 == 1) {
    odd_product <- odd_product * i
  } else if (i %% 2 == 0) {
    even_product <- even_product * i
  }
  
  i <- i + 1
}

cat("奇数相乘结果:", odd_product)
cat("\n偶数相乘结果:", even_product)

3. **repeat-until循环示例**:

i <- 1
odd_product <- 1
even_product <- 1
found_20th = FALSE

repeat {
  if (!found_20th && i <= 20) {
    if (i %% 2 == 1) {
      odd_product <- odd_product * i
    } else if (i %% 2 == 0) {
      even_product <- even_product * i
    }
    
    i <- TRUE
    }
  } else {
    break
  }
}

cat("奇数相乘结果:", odd_product)
cat("\n偶数相乘结果:", even_product)