【USACO题库】1.1.3 Friday the Thirteenth黑色星期五

这一题就是2月份有一些难判断，其他的月份都有固定的天数，可以用一个数组去存。
二月份只要根据闰年判断就可以了，有一点要注意：1900年也要算在内！

var
        a:array[1..7] of longint;
        n,i,j,w:longint;
begin
        fillchar(a,sizeof(a),0);
        readln(n);
        w:=13 mod 7;
        for i:=1900 to 1900+n-1 do
        begin
                for j:=1 to 12 do
                begin
                        inc(a[w]);
                        case j of
                                1,3,5,7,8,10,12:w:=(w+30) mod 7+1;
                                4,6,9,11:w:=(w+29) mod 7+1;
                                2:if (i mod 400=0)or((i mod 4=0)and(i mod 100<>0)) then w:=(w+28) mod 7+1
                                  else w:=(w+27) mod 7+1;
                        end;
                end;
        end;
        writeln(a[6],' ',a[7],' ',a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);
end.