您的位置:首页 > 其它

[SGU]115. Calendar

2012-10-29 07:38 176 查看
Analysis

简单的模拟题,只需知道2001年1月1日是星期一就可以了。

Accepted Code

const
mon:array[1..12] of longint=(31,28,31,30,31,30,31,31,30,31,30,31);

var
days:array[1..12,1..31] of longint;
t,i,j,n,m:longint;

begin
t:=1;
for i:=1 to 12 do
for j:=1 to mon[i] do
begin
days[i,j]:=t;
t:=t mod 7+1;
end;
readln(n,m);
if (m>=1) and (m<=12) and (n>=1) and (n<=mon[m]) then
writeln(days[m,n])
else
writeln('Impossible');
end.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: