判断某年某月的天数 Pascal语言

试题 B:【入门】判断某年某月的天数

【试题描述】

输入年，月，然后告诉该月有多少天。

【输入描述】

输入只有一行，包括2个整数。之间用一个空格分开。

【输出描述】

输出只有一行（这意味着末尾有一个回车符号），包括1个整数。

【输入样例】

2000 2

【输出样例】

29

var
y,m,d:integer;
lf:boolean;
begin
readln(y,m);
if(y mod 4=0)and(y mod 100 <> 0)or(y mod 400 = 0) then lf:=true;
if(m=4)or(m=6)or(m=9)or(m=11) then d:=30
else if(m=2) and lf then d:=29
else if(m=2) and not lf then d:=28
else d:=31;
writeln(d);
readln;
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息