黑色星期五
来源:互联网 发布:思拓CMS 编辑:程序博客网 时间:2024/04/20 03:02
题意
给出N年的一个周期,要求计算1900年1月1日至1900+N-1年12月31日中十三号落在周一到周日的次数
分析
先算出当前月份的天数,再看有没有到13号,有的话就加次数。
var
x,m,y,d,i,n,j:longint;
a:array[1..7]of longint;
procedure c(var m:longint);
begin
d:=1;
inc(m);
end;
begin
readln(n);
y:=1900;
m:=1;d:=1;x:=1;i:=0;
fillchar(a,sizeof(a),0);
while i<n do
begin
inc(x);
if x=8 then x:=1;
case m of
1,3,5,7,8,10,12:if d=31 then c(m) else inc(d);
4,6,9,11:if d=30 then c(m) else inc(d);
2:if (y mod 4=0)and(y mod 100<>0)or(y mod 400=0) then
if d=29 then c(m) else inc(d) else
if d=28 then c(m) else inc(d);
end;
if m=13 then
begin
m:=1;
inc(y);
inc(i);
end;
if d=13 then inc(a[x]);
end;
write(a[6],' ',a[7],' ');
for i:=1 to 5 do
write(a[i],' ');
end.
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- 黑色星期五
- USACO 黑色星期五
- 【USACO】黑色星期五
- Emacs 配置文件
- wxPython Phoenix 和python3.4的编程学习
- Spark学习日志4
- LEETCODE--Sum of Left Leaves
- go语言快速入门:Web开发框架(10)
- 黑色星期五
- SQL Server手把手教你使用profile进行性能监控
- java设计模式之外观模式
- cache - MESI协议
- apue:文件和目录(1)
- python爬虫爬取内容中,-xa0,-u3000的含义
- filewriter与filereader类实例15.04
- B样条插值算法
- OpenWRT添加无线USB网卡