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

400. Решить нужно с помощью case.

Question

Информатика

Фантика

16 июня, 07:16

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

400. Решить нужно с помощью case.

+3

Ответы (1)

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

Маркеллина · Answer 1

Program gt;

var n:longint;

begin

readln (n) ;

case n of

1 ... 10000: if (n mod 400=0) or ((n mod 4=0) and (n mod 1000)) then writeln ('YEs') else

writeln ('NO') ;

end;

end.