Требуется определить является ли год високосным паскаль

Требуется определить является ли год високосным паскаль

Дано натуральное число. Требуется определить, является ли год с данным номером високосным. Если год является високосным, то выведите YES, иначе выведите NO. Напомним, что в соответствии с григорианским календарем, год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.

Определить, является ли год, который ввел пользователем, високосным или невисокосным.

Високосные года делятся нацело на 4. Однако из этого правила есть исключение: столетия, которые не делятся нацело на 400, високосными не являются.

В високосном годе 366 дней, в обычном 365.

  1. Если год не делится на 4, значит он обычный.
  2. Иначе надо проверить не делится ли год на 100.
  3. Если не делится, значит это не столетие и можно сделать вывод, что год високосный.
  4. Если делится на 100, значит это столетие и его следует проверить его делимость на 400.
  5. Если год делится на 400, то он високосный.
  6. Иначе год обычный.

Проверки можно проводить последовательно, а можно группировать через логические операторы "И" и "ИЛИ". Поэтому способов решения задачи может быть несколько.

var y : word ;
begin
readln ( y ) ;
if y mod 4 <> 0 then writeln ( ‘Обычный’ )
else
if y mod 100 = 0 then
if y mod 400 = 0 then writeln ( ‘Високосный’ )
else writeln ( ‘Обычный’ )
else writeln ( ‘Високосный’ ) ;
end .

var y : word ;
begin
readln ( y ) ;
if ( y mod 4 <> 0 ) or ( y mod 100 = 0 ) and ( y mod 400 <> 0 ) then
writeln ( ‘Обычный’ )
else
writeln ( ‘Високосный’ ) ;
end .

program ten;
var x:integer;
begin
write (‘Введите год — ‘);
read(x);
if ((x mod 4=0) or (x mod 400=0) and (x mod 100<>0)) then write(‘YES’) else write(‘NO’);
end.

Читайте также:  Можно ли варить газовый баллон
Ссылка на основную публикацию
Тест для определения цвета волос
Пожалуйста, не копируйте понравившиеся вам статьи незаконно. Мы предлагаем вам разместить активную ссылку на наш сайт в случае, если вы...
Стим показывает что я не в сети
Не редко пользователи Steam встречаются с проблемой, когда подключение к интернету есть, браузеры работают, но клиент Стим не грузит страницы...
Стим саппорт украли аккаунт
Если ваш аккаунт Steam украли или взломали, то до его восстановления вам необходимо выполнить действия, указанные ниже, иначе аккаунт может...
Тест графики видеокарты 3dmark
Наиболее известная программа тестирования производительности, ставшая де-факто стандартом и точкой отсчета в измерениях игровых возможностей видеокарт. Основную популярность программе обеспечило...
Adblock detector