USACO1.1.3[Friday The Thirteenth]

Section1白菜题就是多...本题做法就是一个字:数...

1. {
2. ID:idontknow
3. PROG:friday
4. LANG:PASCAL
5. }
7. //1,3,5,7,8,10,12:31
8. //2:28, 29(leap year)
9. //4,6,9,11:30
11. var
12.     i, n, day, year : longint;
13.     num : array[0 .. 6] of longint;
14.     
15. begin
16.     assign(input,'friday.in'); reset(input);
17.     assign(output,'friday.out'); rewrite(output);
18.     readln(n);
19.     day := 13;
20.     for year := 1900 to 1900 + n - 1 do begin
21.         inc(num[day mod 7]);
22.         {1}day := day + 31;
23.         inc(num[day mod 7]);
24.         {2}day := day + 28 + ord((year mod 400 = 0) or ((year mod 4 = 0) and (year mod 100 <> 0)));
25.         inc(num[day mod 7]);
26.         {3}day := day + 31;
27.         inc(num[day mod 7]);
28.         {4}day := day + 30;
29.         inc(num[day mod 7]);
30.         {5}day := day + 31;
31.         inc(num[day mod 7]);
32.         {6}day := day + 30;
33.         inc(num[day mod 7]);
34.         {7}day := day + 31;
35.         inc(num[day mod 7]);
36.         {8}day := day + 31;
37.         inc(num[day mod 7]);
38.         {9}day := day + 30;
39.         inc(num[day mod 7]);
40.         {10}day := day + 31;
41.         inc(num[day mod 7]);
42.         {11}day := day + 30;
43.         inc(num[day mod 7]);
44.         {12}day := day + 31;
45.     end;
46.     write(num[6],' ',num[0]);
47.     for i := 1 to 5 do
48.         write(' ',num[i]);
49.     writeln;
50.     close(input); close(output);
51. end.