比赛 NOIP_2 评测结果 AWWAWAAAAA
题目名称 到天宫做客 最终得分 70
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-08 20:25:43
显示代码纯文本
program heaven;
var
  n,i,j,a,b,m,max,temp:longint;
  mon:array[1..12]of longint;
  day:array[1..366]of 0..1;
begin
  assign(input,'heaven.in');
  assign(output,'heaven.out');
  reset(input);
  rewrite(output);
  mon[1]:=31;
  mon[2]:=29;
  mon[3]:=31;
  mon[4]:=30;
  mon[5]:=31;
  mon[6]:=30;
  mon[7]:=31;
  mon[8]:=31;
  mon[9]:=30;
  mon[10]:=31;
  mon[11]:=30;
  mon[12]:=31;
  readln(n);
  fillchar(day,sizeof(day),0);
  for i:=1 to n do
  begin
    readln(a,b);
    m:=0;
    for j:=1 to a-1 do
      m:=m+mon[j];
    m:=m+b;
    day[m]:=1;
  end;
  max:=0;
  temp:=0;
  for i:=1 to 366 do
  begin
    if day[i]=0 then temp:=temp+1 else begin
      if max<temp then max:=temp;
      temp:=0;
    end;
  end;
  if (max/366*24*60*60)-trunc(max/366*24*60*60)>=0.5 then writeln(trunc(max/366*24*60*60)+1) else
    writeln(trunc(max/366*24*60*60));
  close(input);
  close(output);
end.