Дан номер года. определить количество дней в этом году, если високосный год делится на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400. решить нужно с case.
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.
Техника безопасности при работе с компьютером очень важна, особенно если речь идет о школьных занятиях. Ведь современную образовательную систему трудно представить без компьютерных технологий. Кроме того, данная информация будет полезна и родителям. Техника безопасности при работе с компьютером Для начала стоит отметить важность защиты здоровья ребенка во время работы с электронной и вычислительной техникой. Кроме того, требования к образовательным учреждениям предусматривают и информационную безопасность ученика во время выхода в интернет.
#генерируем список из 2000 элементов my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]
# начальное значение для временного минимума min1_value = min2_value = 10000 min1_number = min2_number = 0
while my_list: x = my_list.pop() if x < min1_value: min2_value = min1_value min2_number = min1_number min1_value = x min1_number = 1 elif x == min1_value: min1_number += 1 elif x < min2_value: min2_value = x min2_number = 1 elif x == min2_value: min2_number += 1
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.