Написать в паскале
Определить количество дней в году, который вводит пользователь. В високосном годе - 366 дней, тогда как в обычном 365

var    year: word; begin    write('Input year: '); readln(year);     if year mod 4 = 0 then if (year mod 100 = 0) and (year mod 400 <> 0) then year := 365 else year := 366 else year := 365;  writeln('The number of days in the year: ', year);end.

В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.var year: word;   begin write('Input year: '); readln(year);   if year mod 4 = 0 then if (year mod 100 = 0) and (year mod 400 <> 0) then year := 365 else year := 366 else year := 365;   writeln('The number of days in the year: ', year); end.