Определить количество дней в году, которое вводится пользователем.

Алгоритм решения задачи:

В високосном году - 366 дней, в обычном 365. Високосными годами являются все года. делящиеся нацело на 4, за исключением столетий, которые не делятся нацело на 400.

Проверяем, делится ли год на 4.

Если нет, то год не високосный.

Если год делится на 4, то проверяем, делится ли он на 100. Если нет, то год високосный.

Если год делится на 100, но при этом не делится на 400, то год не високосный.

Question

Информатика

Германик

16 марта, 08:28

Определить количество дней в году, которое вводится пользователем.

Алгоритм решения задачи:

В високосном году - 366 дней, в обычном 365. Високосными годами являются все года. делящиеся нацело на 4, за исключением столетий, которые не делятся нацело на 400.

Проверяем, делится ли год на 4.

Если нет, то год не високосный.

Если год делится на 4, то проверяем, делится ли он на 100. Если нет, то год високосный.

Если год делится на 100, но при этом не делится на 400, то год не високосный.

+4

Ответы (1)

Знаете ответ?

Оля · 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.