NOIP2016 普及组解题经验交流

普及组第二题：

在日常生活中，通过年、月、日这三个要素可以表示出一个唯一确定的日期。

牛牛习惯用8位数字表示一个日期，其中，前4位代表年份，接下来2位代表月 份，最后2位代表日期。显然：一个日期只有一种表示方法，而两个不同的日期的表 示方法不会相同。

牛牛认为，一个日期是回文的，当且仅当表示这个日期的8位数字是回文的。现 在，牛牛想知道：在他指定的两个日期之间包含这两个日期本身），有多少个真实存 在的日期是回文的。

一个8位数字是回文的，当且仅当对于所有的i （ 1 <=i<= 8 )从左向右数的第i个 数字和第9-i个数字（即从右向左数的第i个数字）是相同的。

例如：

•对于2016年11月19日，用8位数字20161119表示，它不是回文的。

•对于2010年1月2日，用8位数字20100102表示，它是回文的。

•对于2010年10月2日，用8位数字20101002表示，它不是回文的。

每一年中都有12个月份：

其中，1、3、5、7、8、10、12月每个月有31天；4、6、9、11月每个月有30天；而对于2月，闰年时有29天，平年时有28天。

一个年份是闰年当且仅当它满足下列两种情况其中的一种：

1.这个年份是4的整数倍，但不是100的整数倍；

2.这个年份是400的整数倍。

例如：

•以下几个年份都是闰年：2000、2012、2016。

•以下几个年份是平年：1900、2011、2014。

输入输出格式

输入格式：

 

输入包括两行，每行包括一个8位数字。

第一行表示牛牛指定的起始日期。

第二行表示牛牛指定的终止日期。

保证date_i和都是真实存在的日期，且年份部分一定为4位数字，且首位数字不为0。

保证date1 —定不晚于date2。

 

输出格式：

 

输出一行，包含一个整数，表示在date1和date2之间，有多少个日期是回文的。

 

输入输出样例

输入样例#1：

20110101
20111231

输出样例#1：

1

输入样例#2：

20000101
20101231

输出样例#2：

 2

周俊豪同学的代码：（Pascal）

var
  ans,d1,d2,i,k,n,y,r:longint;
  a:array[1..8] of byte;
  p:boolean;
begin
  readln(d1,d2);
  r:=d1 mod 100;
  d1:=d1 div 100;
  y:=d1 mod 100;
  d1:=d1 div 100;//分离年月日
  n:=d1;
  while (n*10000+y*100+r)<=d2 do begin
    k:=n*10000+y*100+r;//当前的年月日（8位数）
    for i:=1 to 8 do begin
      a[i]:=k mod 10;
      k:=k div 10;
    end;//分离每个数字
    if (a[1]=a[8])and(a[2]=a[7])and(a[3]=a[6])and(a[4]=a[5]) then inc(ans);//判断回文

    if ((n mod 4=0)and(n mod 100<>0)) or (n mod 400=0) then p:=true
                                                       else p:=false;//判断是否为闰年
    inc(r);//加一天
    if (r=32) and ((y=1)or(y=3)or(y=5)or(y=7)or(y=8)or(y=10)or(y=12)) then begin
      r:=1;
      inc(y);
    end;//大月进位
    if (r=31) and ((y=4)or(y=6)or(y=9)or(y=11)) then begin
      r:=1;
      inc(y);
    end;//小月进位
    if (r=29) and (y=2) then begin//未加and（p=false），闰年错误
      r:=1;
      y:=3;
    end;//非闰年2月进位
    if (r=30) and (y=2) and p then begin
      r:=1;
      y:=3;
    end;//闰年2月进位
    if y=13 then begin
      inc(n);
      y:=1;
    end;//年进位
  end;
  writeln(ans);//输出
end.