题目描述
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、以上规则不适合于世纪年。可以被400整除的世纪年为闰年,否则为平年。所以,1700,1800,1900和2100年是平年,而2000年是闰年.
请不要调用现成的函数
请不要预先算好数据(就是叫不准打表)!
输入输出格式
输入格式:
一个正整数n.
输出格式:
输入输出样例
输入样例#1:
20
输出样例#1:
36 33 34 33 35 35 34
说明
题目翻译来自NOCOW。
USACO Training Section 1.1
模拟:
时间复杂度:O(n)
1.算数法。
2.计算累加1天之后的年月日是多少。
var
n:longint;
z:array [1..7] of longint;
o,y,m,d,wd:longint;
begin
readln(n);
y:=1900; m:=1; d:=1; o:=1; wd:=31;
repeat
if d>wd then inc(m);
if d>wd then d:=1;
if m>12 then inc(y);
if m>12 then m:=1;
if o>7 then o:=1;
case m of
1,3,5,7,8,10,12:wd:=31;
4,6,9,11:wd:=30;
2:if ((y mod 100=0) and (y mod 400=0))
or ((y mod 100<>0) and (y mod 4=0))
then wd:=29
else wd:=28;
end;
if d=13 then inc(z[o]);
inc(o); inc(d);
until y>1900+n-1;
writeln(z[6],' ',z[7],' ',z[1],' ',z[2],' ',z[3],' ',z[4],' ',z[5]);
end.