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.