NOIP2016普及组第二题——回文日期

最新推荐文章于 2024-06-09 00:01:39 发布

Vagari_

最新推荐文章于 2024-06-09 00:01:39 发布

阅读量2.3k

点赞数 2

CC 4.0 BY-SA版权

本文链接：https://blog.csdn.net/SSL_QYH0Ice/article/details/53306544

SSL 2592
洛谷 P2010 回文日期
题目描述
在日常生活中，通过年、月、日这三个要素可以表示出一个唯一确定的日期。
牛牛习惯用8位数字表示一个日期，其中，前4位代表年份，接下来2位代表月份，最后2位代表日期。显然：一个日期只有一种表示方法，而两个不同的日期的表示方法不会相同。
牛牛认为，一个日期是回文的，当且仅当表示这个日期的8位数字是回文的。现在，牛牛想知道：在他指定的两个日期之间包含这两个日期本身），有多少个真实存在的日期是回文的。
一个8位数字是回文的，当且仅当对于所有的i（1 <=i<=8)从左向右数的第i个数字和第9-i个数字（即从右向左数的第i个数字）是相同的。

const
  a:array[1..12]of longint=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  s1,s2,s,m,d,i,j,k,ys,ye,ms,me,ds,de:longint;
begin
  readln(s1);
  readln(s2);
  ys:=s1 div 10000;
  ye:=s2 div 10000;
  ms:=(s1 mod 10000)div 100;
  me:=(s2 mod 10000)div 100;
  ds:=s1 mod 100;
  de:=s2 mod 100;
  for i:=ys to ye do
   begin
     a[2]:=28;
     if (i mod 4=0)and(i mod 100<>0)or(i mod 100=0)and(i mod 400=0) then
      a[2]:=29;
     for j:=1 to 12 do
      if (i=ys)and(j>=ms)or(i=ye)and(j<=me)or(1=1) then
       begin
         if j<10 then m:=j*10
          else m:=(j mod 10*10)+(j div 10);
         for k:=1 to a[j] do
          if (i=ys)and(j=ms)and(k>=ds)or(i=ye)and(j=me)and(k<=de)or(1=1) then
           begin
             if k<10 then d:=k*10
              else d:=(k mod 10*10)+(k div 10);
             if i=d*100+m then begin inc(s);break; end;
           end;
         if i=d*100+m then break;
       end;
   end;
  writeln(s);
end.