Дан номер года. Определить количество дней в этом году, если високосный год делится на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400. Решить нужно с помощью case.
Answers & Comments
kage1998
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 100<>0))then writeln('YEs') else writeln('NO'); end; end.
Answers & Comments
var n:longint;
begin
readln(n);
case n of
1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100<>0))then writeln('YEs') else
writeln('NO');
end;
end.