Описать функцию Vis_god(Y) логического типа, которая возвращает True, если год Y (целое положительное число) является високосным, и False в противном случае. Вывести значение функции Vis_god для пяти данных значений параметра Y. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400.
(paskal)
Ответы
Ответ дал:
0
На PascalABc.NET 3.8
Приложения:
BobbyFresnel:
Тест добавить не смог: отказывается сохранять. Видимо опять намудрили тут что-то со своими системами "защиты". Попробую дать в комментариях.
##
##
function Vis_god(y:integer) :=
function Vis_god(y:integer) :=
а следующую не позволяет ввести
|2021, 2000, 1900, 2020, 1800|.Select(t -> (t, Vis_god(t))).PrintLines
последняя вводится. Дичь какая-то
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад