Вот программа, написанная на языке программирования R, которая проверяет, является ли данный год високосным или нет:

check_leap_year <- function(year) {
  if (year %% 400 == 0) {
    return(TRUE)
  } else if (year %% 100 == 0) {
    return(FALSE)
  } else if (year %% 4 == 0) {
    return(TRUE)
  } else {
    return(FALSE)
  }
}
# Example usage
year <- 2024
is_leap_year <- check_leap_year(year)
if (is_leap_year) {
  print(paste(year, "is a leap year."))
} else {
  print(paste(year, "is not a leap year."))
}

Эта программа определяет функцию check_leap_year, которая принимает год в качестве входных данных и проверяет, является ли он високосным. Он соответствует правилам високосных лет:

1. Если год делится на 400, то это високосный год.
2. Если год делится на 100, но не делится на 400, это не високосный год.
3. Если год делится на 4, но не делится на 100, это високосный год.
4. Если год не делится на 4, это не високосный год.

В примере использования программа проверяет, является ли 2024 год високосным, и печатает соответствующее сообщение.