用PASCAL编程某年某月某日是星期几？（公元1年一月1号是星期一） const w：array[0.6]of string[3]=('Sun'，'Mon'，'Tue'，'Wed'，'Thu'，'Fri'，'Sat')；var y，m，d，i，y1：integer；beginwrite('y m d：')；readln(y，m，d)；y1：=y；inc(y，d-1+(y-1)div 4-(y-1)div 100+(y-1)div 400)；for i：=1 to m-1 docase i of1，3，5，7，8，10：inc(y，31)；2：inc(y，ord((y1 mod 4=0)and(y1 mod 100>；0)or(y1 mod 400=0)))；4，6，9，11：inc(y，30)end；writeln(y1，'-'，m，'-'，d，' is '，w[y mod 7]，'.')；end.
某年的2月份有5个星期一，这一年是()年，2月1日是星期() 说明原因 2月份有5个星期一2月份至少有4*7+1=29天所以是闰年2月1日是星期一
某年的十月份有五个星期六，星期日，星期一，这年的十月一日是星期几？ 星期五，依题可以推出10月31日为星期日，减去（4*7+1=）29天得10月3日为星期日，所以10月1日是星期五
