首页 > 代码库 > Friday the Thirteenth
Friday the Thirteenth
题解:
模拟。
从1990~1990+n-1年之内,每一个月13号是星期几,累计一下就行了(注意:他是从六、日、一、二、三、四、五)。
{
ID:h1956701
LANG:PASCAL
PROB:friday
}
var n,s,i,j:longint;
day:array[1..12]of longint=(31,0,31,30,31,30,31,31,30,31,30,31);
a:array[0..11]of longint;
begin
assign(input,‘friday.in‘);
reset(input);
assign(output,‘friday.out‘);
rewrite(output);
readln(n);
s:=13;
for i:=1900 to 1900+n-1 do
begin
day[2]:=28;
if (i mod 400=0)or(i mod 4=0)and(i mod 100<>0) then inc(day[2]);
for j:=1 to 12 do
begin
s:=(s+day[j])mod 7;
inc(a[s]);
end;
end;
dec(a[s]);
write(a[6]+1,‘ ‘);
for i:=0 to 4 do write(a[i],‘ ‘);
writeln(a[5]);
close(input);
close(output);
end.
Friday the Thirteenth
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。