題目描述13號又是一個星期五。13號在星期五比在其他日子少嗎?為了回答這個問題,寫一個程序，要求計算每個月的十三號落在周一到周日的次數。給出N年的一個周期，要求計算1900年1月1日至1900+N-1年12月31日中十三號落在周一到周日的次數，N為正整數且不大于400.這里有一些你要知道的:1、1900年1月1日是星期一.2、4,6,11和9月有30天.其他月份除了2月都有31天.閏年2月有29天,平年2月有28天.3、年份可以被4整除的為閏年(1992=4*498 所以 1992年是閏年,但是1990年不是閏年).4、以上規(guī)則不適合于世紀年。可以被400整除的世紀年為閏年,否則為平年。所以,1700,1800,1900和2100年是平年,而2000年是閏年.請不要調用現成的函數請不要預先算好數據（就是叫不準打表）!輸入輸出格式輸入格式：一個正整數n.輸出格式：輸入輸出樣例輸入樣例#1：20輸出樣例#1：36 33 34 33 35 35 34題解：這一道題不斷枚舉就行了。var i,j,n:integer; day:longint; week:array[0..6] of integer;begin read(n); day:=0; for i:=1900 to 1900+n-1 do for j:=1 to 12 do case j of 1,2,4,6,8,9,11:if (i=1900) and (j=1) then begin day:=day+13; week[day mod 7]:=week[day mod 7]+1; end else begin day:=day+31; week[day mod 7]:=week[day mod 7]+1; end; 3:if (i mod 4=0) and (i mod 100<>0) or (i mod 400=0) then begin day:=day+29; week[day mod 7]:=week[day mod 7]+1; end else begin day:=day+28; week[day mod 7]:=week[day mod 7]+1; end; 5,7,10,12:begin day:=day+30;week[day mod 7]:=week[day mod 7]+1;end; end; write(week[6],' '); for i:=0 to 5 do write(week[i],' '); writeln; end.
