比赛 NOIP_2 评测结果 AAAAAAAAAA
题目名称 到天宫做客 最终得分 100
用户昵称 francis 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-08 21:07:40
显示代码纯文本
program heaven;
const
fin='heaven.in';
fou='heaven.out';
a:array[1..12]of longint=(31,29,31,30,31,30,31,31,30,31,30,31);
var
b:array[1..400]of boolean;
all,max,q,i,j,n,x,y,m:longint;
total:real;
f1,f2:text;

procedure init;
begin
assign(f1,fin); assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
for i:=1 to n do
begin
 m:=0;
 read(f1,x,y);
 for j:=1 to (x-1) do
 m:=m+a[j];
 m:=m+y;
 b[m]:=true;
end;
end;

begin
init;
q:=0;
for i:=1 to 366 do
 if b[i]=true then
 begin
  all:=i-1-q;
  if all>max then max:=all;
  q:=i;
 end;
all:=366-q;
if all>max then max:=all;
total:=max*24*60*60/366;
max:=trunc(total);
total:=total-max;
if total>=0.5 then inc(max);
write(f2,max);
close(f1); close(f2);
end.