Написать программу на Паскале: определить, является ли год високосным.

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

Год является високосным, если он делится на 4, но не делится на 100.

Исключение: если год делится на 400, то он тоже является високосным.

То есть:

2024 — високосный, так как делится на 4 и не делится на 100.

1900 — не високосный, так как делится на 100, но не делится на 400.

2000 — високосный, так как делится на 400.

Программа на Паскале:

pascal
program LeapYear;

var
  year: integer;

begin
  writeln('Введите год:');
  readln(year);

  if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
    writeln('Год является високосным')
  else
    writeln('Год не является високосным');
end.

Пояснение:

Оператор mod находит остаток от деления.

Например:

pascal
year mod 4 = 0

означает, что год делится на 4 без остатка.

В условии:

pascal
((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0)

проверяются сразу все правила високосного года.

Если условие истинно, программа выводит:

pascal
Год является високосным

Если условие ложно, выводится:

pascal
Год не является високосным