Дан номер года. Определить, является ли он високосным (год является високосным, если его номер делится на 4, за исключением тех, которые делятся на 100 и не делятся на 400).

Question

Информатика

Петрай

6 мая, 09:30

Дан номер года. Определить, является ли он високосным (год является високосным, если его номер делится на 4, за исключением тех, которые делятся на 100 и не делятся на 400).

+4

Ответы (2)

Знаете ответ на вопрос?

Машаня · Answer 1

Ну а год какой?

ты год то напиши.

Филиппин · Answer 2

Var

year: integer;

begin

write ('Введите год: ') ;

readln (year) ;

if year mod 4 = 0 then

if year mod 100 = 0 then

if year mod 400 0 then

write ('365 дней')

else write ('366 дней')

else write ('366 дней')

else write ('365 дней') ;

end.