一大堆的福利之【USACO题库】Friday the Thirteenth黑色星期五

题目描述

13号又是星期五是一个不寻常的日子吗?

13号在星期五比在其他日少吗?为了回答这个问题,写一个程序来计算在n年里13

日落在星期一,星期二......星期日的次数.这个测试从1900年1月1日到

1900+n-1年12月31日.n是一个非负数且不大于400.

这里有一些你要知道的:

• 
  
• 1900年1月1日是星期一.
  
• 4,6,11和9月有30天.其他月份除了2月有31天.闰年2月有29天,平年2月有28天.
  
• 年份可以被4整除的为闰年(1992=4*498 所以 1992年是闰年,但是1990年不是闰年)
  
• 以上规则不适合于世纪年.可以被400整除的世纪年为闰年,否则为平年.所以,1700,1800,1900和2100年是平年,而2000年是闰年.
  

请不要预先算好数据!

输入

一个整数n.

输出

七个在一行且相分开的整数,它们代表13日是星期六,星期日,星期一.....星期五的次数.

样例输入

20

样例输出

36 33 34 33 35 35 34

var
        b:array[1..12]of longint=(31,28,31,30,31,30,31,31,30,31,30,31);
        m,j,k,n,t,i:longint;
        a:array[0..6]of longint;
begin
        readln(N);
        k:=1;
        for j:=1900 to 1900+n-1 do
        begin
                if (j mod 4=0)and(j mod 100<>0)or(j mod 400=0) then b[2]:=29 else b[2]:=28;
                for t:=1 to 12 do
                begin
                        inc(a[(m+13)mod 7]);
                        m:=m+b[t];
                end;
        end;
        write(a[6],' ',a[0],' ');
        for i:=1 to 5 do
                write(a[i],' ');
end.