Pascal編程問題

那位仁兄的答案是錯的額，妳判斷閏年有問題，真正閏年的定義是：年號是400的整倍數或4的整倍數（但非100的倍數），也就是說2000是閏年，2004年也是閏年，但3000年不是閏年。

var

a,b,c:integer;

begin

readln(a,b);

case

b

of

1,3,5,7,8,10,12:c:=31;

4,6,9,11:c:=30;

2:if

a

mod

4=0

then

begin

c:=29;

if

(a

mod

100=0)and(a

mod

400<>0)

then

c:=28;

end

else

c:=28;

end;

writeln(c);

end.

上一篇:票，SVN，維基是什麽意思？

下一篇:榮威 w5 儀表盤不顯示百公裏油耗嗎