Написать в паскале
Определить количество дней в году, который вводит пользователь. В високосном годе - 366 дней, тогда как в обычном 365
В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.
varyear: word; beginwrite(Input year: ); readln(year); if year mod 4 = 0 thenif (year mod 100 = 0) and (year mod 400 <> 0) thenyear := 365elseyear := 366elseyear := 365; writeln(The number of days in the year: , year);end.
Оцени ответ
