Задача. Год является високосным, если его номер кратен 4,однако из кратных 100...

Question

Задача. Год является високосным, если его номер кратен 4,однако из кратных 100 високосными являются лишь кратные 400. Например 1700,1800,1900-не високосные, а 2000 високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером? Решить на паскале, уровень 8 класса!

Answer 1

programm LeapYear;
var y: integer;
begin
  readln(y);
  if y/4=int(y/4) then
  begin
    if (y/100=int(y/100))and(y/400<>int(y/400)) then
      writeln('Не високосный') else
      writeln('\Високосный';)
  end
  else writeln('Не високосный')
end;

Answer 2

Если н не делится на 4 то не високосный, если делится, то проверяем дальше, если н не делится на 100 то високосный, если же делится. проверяем дальше, если н не делится на 400 то не високосный, если н делится на 4000 то високосный