Param59. Описать тип TDate — запись с полями целого типа Day (день), Month (месяц) и Year (год) — и функцию LeaP_Year($$D$$) логического типа с параметром типа TDate, которая возвращает True, если год в дате $$D$$ является високосным, и False в противном случае. Вывести значение функции LeaP_Year для пяти данных дат (предполагается, что все даты являются правильными). Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на $$100$$ и не делятся на $$400$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
program Param59; type TDate = record Day:integer; Month:integer; Year:integer; end; var D:TDate; Function LeaP_Year(D:TDate):boolean; begin if (D.Year mod 100)=0 then if (D.Year mod 400)=0 then LeaP_Year:=True else LeaP_Year:=False else if (D.Year mod 4)=0 then LeaP_Year:=True else LeaP_Year:=False; end; begin Write('Date: '); Readln(D.Day,D.Month,D.Year); Writeln(LeaP_Year(D)); end. |
Другие задачи из раздела Param можно посмотреть здесь.
Комментарии: