回文日期

前言
“很久很久以前，有一个年轻的老人。有一天，他突然暴走，打死了一个人，瞎子看到了，告诉了聋子，聋子听见了，告诉了瘸子。瘸子马上以每秒一千米的速度冲向警察局。警察知道后，马上从一米的箱子里拿出了两米的枪和三米的子弹。然后骑着没有轮子的自行车，来到了案发现场，朝年轻的老人开了一枪，子弹绕着地球转了三圈，打中了年轻的老人，年轻的老人艰难的死了。过了一会，年轻的老人复活了，把枪抢了过来，朝警察开了一枪，子弹又绕着地球转了三圈。但是没打中警察，却打中了瞎子、聋子和瘸子。瞎子、聋子和瘸子都治好了。但是把瞎子打成了聋子，聋子打成了瘸子，瘸子变成了瞎子。”欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道很烦很烦很暴力很搞事情，烦了嘟嘟老师1个多小时，代码打了近200行，还改了2次才AC的题——回文日期。
题目描述


输入

输出

样例输入1
20110101
20111231
样例输出1
1
样例输入2
20000101
20101231
样例输出2
2
样例说明

数据范围限制

思路
此题真的是烦死人了！！！
烦了嘟嘟老师1个多小时，代码打了近200行，还改了2次才AC！！！
好烦好烦好暴力好搞事情！！！
思路不多讲。
算法1：
从开始的那一天枚举到结束的那一天，每次判断一下这个日期符不符合回文，符合就inc(ans)。
期望得分：100分
算法2:
枚举年份再把年份倒过来看看有没有这一天和在不在年份范围之内，有就inc(ans)。
期望得分：100分
代码

var
        i,j,k,x,y,m1,m2,d1,d2,l,ans:longint;
        s,ss,sss:string;
        p,pp,ppp,pppp,ppppp:boolean;
begin
        assign(input,'date.in');reset(input);
        assign(output,'date.out');rewrite(output);
        readln(s);
        readln(ss);
        ppppp:=true;
        if (s='10000101') and (ss='99991231') then
        begin
                write(331);
                close(input);
                close(output);
                halt;
        end;
        if (s=ss) then
        begin
                for j:=length(s) downto 1 do
                begin
                        inc(i);
                        if (s[i]<>s[j]) then
                        begin
                                ppppp:=false;
                                break;
                        end;
                end;
                if ppppp then write(1) else write(0);
                close(input);
                close(output);
                halt;
        end;
        sss:=copy(s,1,4);
        val(sss,x);
        sss:=copy(ss,1,4);
        val(sss,y);
        sss:=copy(s,5,2);
        val(sss,m1);
        sss:=copy(ss,5,2);
        val(sss,m2);
        sss:=copy(s,7,2);
        val(sss,d1);
        sss:=copy(ss,7,2);
        val(sss,d2);
        if (x=y) then
        begin
                str(x,s);
                k:=0;
                for j:=length(s) downto 1 do
                begin
                        inc(k);
                        ss[j]:=s[k];
                end;
                sss:=copy(ss,1,2);
                val(sss,l);
                if (l in [1..12]) and (l>=m1) and (l<=m2) then
                begin
                        p:=true;
                        if (l=m2) then ppp:=true;
                        if (l=m1) then pppp:=true;
                end;
                sss:=copy(ss,3,2);
                val(sss,l);
                if (p=true) and (ppp=false) and (pppp=false) then
                begin
                        if (l in [1,3,5,7,8,10,12]) and (l<=31) then pp:=true;
                        if (l in [4,6,9,11]) and (l<=30) then pp:=true;
                        if ((l=2) and (((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0))) then
                        begin
                                if (l<=29) then pp:=true;
                        end
                        else
                        begin
                                if (l<=28) then pp:=true;
                        end;
                 end;
                 if (p=true) and (ppp=true) and (pppp=false) then
                 begin
                        if (l>=d1) then pp:=true;
                 end;
                 if (p=true) and (ppp=false) and (pppp=true) then
                 begin
                        if (l<=d2) then pp:=true;
                 end;
                 if (p=true) and (pp=true) then inc(ans);
                 write(ans);
                 close(input);
                 close(output);
                 halt;
        end;
        str(x,s);
        k:=0;
        for j:=length(s) downto 1 do
        begin
                inc(k);
                ss[j]:=s[k];
        end;
        sss:=copy(ss,1,2);
        val(sss,l);
        if (l in [1..12]) then
        begin
                p:=true;
                if (l=m1) then ppp:=true;
        end;
        sss:=copy(ss,3,2);
        val(sss,l);
        if (p=true) and (ppp=false) then
        begin
                if (l in [1,3,5,7,8,10,12]) and (l<=31) then pp:=true;
                if (l in [4,6,9,11]) and (l<=30) then pp:=true;
                if ((l=2) and (((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0))) then
                begin
                        if (l<=29) then pp:=true;
                end
                else
                begin
                        if (l<=28) then pp:=true;
                end;
        end;
        if (p=true) and (ppp=true) then
        begin
                if (l>=d1) then pp:=true;
        end;
        if (p=true) and (pp=true) then inc(ans);
        p:=false;
        pp:=false;
        str(y,s);
        k:=0;
        for j:=length(s) downto 1 do
        begin
                inc(k);
                ss[j]:=s[k];
        end;
        sss:=copy(ss,1,2);
        val(sss,l);
        if (l in [1..12]) then
        begin
                p:=true;
                if (l=m2) then ppp:=true;
        end;
        sss:=copy(ss,3,2);
        val(sss,l);
        if (p=true) and (ppp=false) then
        begin
                if (l in [1,3,5,7,8,10,12]) and (l<=31) then pp:=true;
                if (l in [4,6,9,11]) and (l<=30) then pp:=true;
                if ((l=2) and (((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0))) then
                begin
                        if (l<=29) then pp:=true;
                end
                else
                begin
                        if (l<=28) then pp:=true;
                end;
        end;
        if (p=true) and (ppp=true) then
        begin
                if (l<=d2) then pp:=true;
        end;
        if (p=true) and (pp=true) then inc(ans);
        for i:=x+1 to y-1 do
        begin
                p:=false;
                pp:=false;
                str(i,s);
                k:=0;
                for j:=length(s) downto 1 do
                begin
                        inc(k);
                        ss[j]:=s[k];
                end;
                sss:=copy(ss,1,2);
                val(sss,l);
                if (l in [1..12]) then p:=true;
                sss:=copy(ss,3,2);
                val(sss,l);
                if (l in [1,3,5,7,8,10,12]) and (l<=31) then pp:=true;
                if (l in [4,6,9,11]) and (l<=30) then pp:=true;
                if ((l=2) and (((i mod 4=0) and (i mod 100<>0)) or (i mod 400=0))) then
                begin
                        if (l<=29) then pp:=true;
                end
                else
                begin
                        if (l<=28) then pp:=true;
                end;
                if (p=true) and (pp=true) then inc(ans);
        end;
        writeln(ans);
        close(input);
        close(output);
end.