万年历的一种写法
2017-02-06
31
万年历的一种写法2010-03-12program www;var year :integer;Function monthday(year,month:integer):integer;{第year年第month月的天数}begincase month of0 :monthday:=0;4,6,9,11 :monthday:=30;1,3,5,7,8,10,12:monthday:=31;2 :if (year mod 4 =0) and (year m...