Question

Помогите пожалуйста, в паскале, в помощью IF. Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.). Выведите сообщение на экран «год високосный» или «год не високосный».

Answer 1

Var  a: integer;begin  read(a);  if (a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then     writeln('Да') else    writeln('Нет');end.

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль для определения високосного года с использованием оператора IF.

pascalCopy code
program LeapYearCheck;

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 возвращает остаток от деления числа на другое. Например, x mod y вернет остаток от деления x на y.
• Условие (year mod 4 = 0) and (year mod 100 <> 0) проверяет, является ли год кратным 4 и не кратным 100.
• Условие year mod 400 = 0 проверяет, является ли год кратным 400.
• Если хотя бы одно из условий истинно (т.е. год является високосным), программа выведет "Год високосный". В противном случае программа выведет "Год не високосный".