高校问答我国有无限责任公司吗:pascal高手come in!!!
来源：百度文库 编辑：高校问答 时间：2024/05/09 19:20:54
输入年,月,输出该月有几天?
CASE month OF
1,3,5,7,8,10,12:DAYS:=31;
4,6,9,11 :DAYS:=30;
2 :IF（以下是闰年的表示方法,应该怎么写啊？？？）
闰年的标准：如果年份的数字能被100整除 则能被400整除的数是闰年；如果不能被100整除 则能被4整除的数是闰年
CASE month OF
1,3,5,7,8,10,12:DAYS:=31;
4,6,9,11 :DAYS:=30;
2 :IF（以下是闰年的表示方法,应该怎么写啊？？？）
闰年的标准：如果年份的数字能被100整除 则能被400整除的数是闰年；如果不能被100整除 则能被4整除的数是闰年
if (year mod 400=0)or (year mod 100<>0) and (year mod 4=0) then ...
能被4整除的就是闰年吧
if year mod 4=0 then
同意2楼，比如3000年就不是闰年