USACO 1.1 黑色星期五

Description

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年是闰年. 
请不要预先算好数据! 

Input

一个整数n.

Output

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

Sample Input

 

20

 

Sample Output

 

36 33 34 33 35 35 34


解题思路:先用一个函数判断给出的月份有多少天,然后用循环判断它是星期几,并把数组里对应的星期几加一,最后输出星期一至星期日的次数。


程序:
var
  a:array[0..6] of integer;
  i,j,k,n:integer;

function f(i,j:integer):integer;
  begin
    case j of
      1,3,5,7,8,10,12:f:=31;
      4,6,9,11:f:=30;
      2:if (i mod 400=0) or(i mod 100<>0) and(i mod 4=0) then f:=29 else f:=28;
    end
end;

begin
  readln(n);
  k:=6;
  for i:=1900 to 1900+n-1 do 
    for j:=1 to 12 do 
      begin
        inc(a[k]);
        k:=(k+f(i,j)) mod 7;
      end;
  write(a[6],' ');
  for i:=0 to 5 do 
    write(a[i],' ');
end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值