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

Question

Информатика

Римуля

26 августа, 21:58

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

+1

Ответы (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.