中科新闻网权相宇崔智友访谈节目:各位大虾请帮助我做一道简单的PASCAL题
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 22:54:32
输入年,月,输出该月有几天
请用CASE语句帮我解答 急！！！
谢谢了 ^o^~~~
为什么没人回答阿 555...
如果问题出的有什么错的话 说出来哦！！！
请用CASE语句帮我解答 急！！！
谢谢了 ^o^~~~
为什么没人回答阿 555...
如果问题出的有什么错的话 说出来哦！！！
Program days;
var
year,month:integer;
begin
readln(year,month);
case month of
1,3,5,7,8,10,12: write('31');
4,6,9,11: write('30');
2: if (year div 4) and (not (year div 100)) or (year div 400) then
write('29')
else
write('28')
end;
readln
end.