Question

Определить количество дней в году, которое вводится пользователем.
Алгоритм решения задачи:
В високосном году - 366 дней, в обычном 365. Високосными годами являются все года. делящиеся нацело на 4, за исключением столетий, которые не делятся нацело на 400.
Проверяем, делится ли год на 4.
Если нет, то год не високосный.
Если год делится на 4, то проверяем, делится ли он на 100. Если нет, то год високосный.
Если год делится на 100, но при этом не делится на 400, то год не високосный.

Answer 1

Program kol_dney;
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.