R中的闰年某些输出是错误的

在R中找出闰年

year <- 1990
if((year %% 4) == 0){
  if((year %% 100) == 0){
   if((year %% 400) == 0){
   print(paste(year,"is a leap year"))
}
 else{
  print(paste(year,"is a leap year"))
 }
}
 else{
   print(paste(year,"is not a leap year"))
 }
}

---

year我认为您尝试的逻辑有点不正确。此外，对于第一个
if
，您还需要在末尾添加另一个
else

year <- 1990

if((year %% 4) == 0) {
  if((year %% 100) == 0) {
    if((year %% 400) == 0) {
      print(paste(year,"is a leap year"))
    } else {
      print(paste(year,"is not a leap year"))
    }
  } else {
     print(paste(year,"is a leap year"))
  }
} else {
  print(paste(year,"is not a leap year"))
}

特别是，函数中的闰年由
（year%%4==0）和（（year%%100！=0）|（year%%400==0））
我认为您尝试时的逻辑有点不正确。此外，对于第一个
if
，您还需要在末尾添加另一个
else

year <- 1990

if((year %% 4) == 0) {
  if((year %% 100) == 0) {
    if((year %% 400) == 0) {
      print(paste(year,"is a leap year"))
    } else {
      print(paste(year,"is not a leap year"))
    }
  } else {
     print(paste(year,"is a leap year"))
  }
} else {
  print(paste(year,"is not a leap year"))
}

特别是，函数中的闰年由
（year%%4==0）和（（year%%100！=0）|（year%%400==0））
因为1990年不是闰年。这也错误地给出17001800和1900是闰年，而实际上它们不是，因为1990年不是闰年。这也错误地给出17001800和1900是闰年，而实际上它们不是