

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var n,k,l,r,x,j:int64;
a,b:longint;
s,s1,s2:string;
function dx(b:int64):int64;
var p,i,j:longint;
begin
str(b,s); j:=1; k:=0;
for i:=1 to length(s)-1 do
begin
if (i mod 2=1) and (i>1) then j:=j*10;
k:=k+9*j;
end;
if i mod 2=0 then j:=j*10;
s1:=s; p:=length(s);
for i:=1 to p div 2 do
begin
s1[i]:=s[i];
s1[p-i+1]:=s1[i];
end;
s2:=s1;
if p mod 2=0 then delete(s1,i+1,i)
else delete(s1,i+2,i);
val(s1,n,i);
if s2>s then dec(n);
str(n,s1); p:=length(s1);
if (p=1) and (b>10) and (b<100) then k:=k+n;
if b<10 then k:=b;
if (p>1) then k:=k+n-j+1;
end;
BEGIN
readln(a);
for b:=1 to a do
begin
readln(l,r);
if l>r then
begin j:=l;l:=r;r:=j;end;
dx(l); x:=k;
if s2=s then dec(x);
dx(r); x:=k-x;
writeln(x);
end;
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
Bảng tin