NOIP2016 第二题 回文日期

题目：

题解：

我们可以先做出60%，这很简单：只要判断回文；
后40%判断日期。

代码：

var date1,date2,i,j,k,ans,t,y1,y2,m1,m2,d1,d2,xm,xd,ym,yd:longint;
    a,y:array[0..13] of integer;
procedure main(dt:longint);
var t:boolean;
    i:longint;
begin
  i:=0;
  while dt>0 do
    begin
      inc(i);
      a[i]:=dt mod 10;
      dt:=dt div 10;
    end;
    t:=true;
    for i:=1 to 4 do
      if a[i]<>a[9-i] then t:=false;
      if t=true then inc(ans);
end;
begin
  read(date1);
  read(date2);
  ans:=0;
  if date1=date2 then
  begin
    main(date1);
    write(ans);
  end else
  begin
    y1:=date1 div 10000; m1:=date1 div 100-y1*100; d1:=date1 mod 100;
    y2:=date2 div 10000; m2:=date2 div 100-y2*100; d2:=date2 mod 100;
    y[1]:=31; y[3]:=31; y[4]:=30; y[5]:=31; y[6]:=30;
    y[7]:=31; y[8]:=31; y[9]:=30; y[10]:=31; y[11]:=30; y[12]:=31;
    for i:=y1 to y2 do
    begin
      if (i mod 4=0)and(i mod 100<>0)or(i mod 4=0)and(i mod 400=0) then
      y[2]:=29 else y[2]:=28;
      if (i=y1)and(y1=y2) then begin xm:=m1;ym:=m2; end else
      if i=y1 then begin xm:=m1; ym:=12; end else
      if i=y2 then begin ym:=m2; xm:=1; end else
      begin xm:=1; ym:=12; end;
      for j:=xm to ym do
      begin
        if (i=y1)and(y1=y2)and(j=m1)and(m1=m2) then
        begin xd:=d1;yd:=d2; end else
        if (i=y1)and(j=m1) then begin xd:=d1; yd:=y[j]; end else
        if (i=y2)and(j=m2) then begin yd:=d2; xd:=1; end else
        begin xd:=1; yd:=y[j]; end;
        for k:=xd to yd do
        begin
          t:=i*10000+j*100+k;
          main(t);
        end;
      end;
    end;
    write(ans);
  end;
end.