请问您怎么循环的??
您家里的日历是这样走的吗?
by Papaya @ 2018-06-19 20:47:17
var
a:array[1..12] of longint=(31,29,31,30,31,30,31,31,30,31,30,31);
s1,s2,i,j,t,ans:longint;
begin
readln(s1);
readln(s2);
for i:=1 to 12 do
for j:=1 to a[i] do
begin
t:=j mod 10*10000000+j div 10*1000000+i mod 10*100000+i div 10*10000+i div 10*1000+i mod 10*100+j div 10*10+j mod 10;
if (t>=s1) and (t<=s2) then inc(ans);
end;
writeln(ans);
end.
by jinhangjie2006 @ 2018-08-07 09:43:51
var
a:array[1..12] of longint=(31,29,31,30,31,30,31,31,30,31,30,31);
s1,s2,i,j,t,ans:longint;
begin
readln(s1);
readln(s2);
for i:=1 to 12 do
for j:=1 to a[i] do
begin
t:=j mod 10*10000000+j div 10*1000000+i mod 10*100000+i div 10*10000+i div 10*1000+i mod 10*100+j div 10*10+j mod 10;
if (t>=s1) and (t<=s2) then inc(ans);
end;
writeln(ans);
end.//Pascal题解 简单AC 哈哈 更具日期和月份 硬性规定他是个回文数 再看看他是不是在范围内 整个程序重在于1句话
by jinhangjie2006 @ 2018-08-07 09:46:01