打印某年某月有几天.输入:年、月,输出:天数.(pascal)每年的1,3,5,7,8,10,12这七个月为31天每年的4,6,9,11这四个月为30天每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100
来源:学生作业帮助网 编辑:六六作业网 时间:2024/10/07 15:12:44
打印某年某月有几天.输入:年、月,输出:天数.(pascal)每年的1,3,5,7,8,10,12这七个月为31天每年的4,6,9,11这四个月为30天每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100
打印某年某月有几天.输入:年、月,输出:天数.(pascal)
每年的1,3,5,7,8,10,12这七个月为31天
每年的4,6,9,11这四个月为30天
每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100整除,但能被400整除的年份也为闰年.方法是:用求余的运算求出余数,如果两数相除的余数为0,则能整除,否则不能.
Var year,month,len:integer;
Begin readln (year,month);
Case month of
1,3,5,7,8,10,12:len:=______;
__________ :len:=30;
2 :begin {下面是一个复合语句}
If _______________________then len:=29 {闰年}
Else len:=28; {平年}
end {这是begin 的end}
end; {这是case 的end}
Writeln (len);
End.
打印某年某月有几天.输入:年、月,输出:天数.(pascal)每年的1,3,5,7,8,10,12这七个月为31天每年的4,6,9,11这四个月为30天每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100
31
4,6,9,11
(len mod 400=0) or ((len mod 4=0) and (len mod 1000))
//ls是c的、这个才是pascal的.