nhập 1 dãy đếm các số từ a đến b có bao nhiêu số đối xứng?????????
2 câu trả lời
uses crt;
var i,a,b,d:longint;
function dx(a:longint):longint;
var kq:longint;
begin
kq:=0;
repeat
kq:=kq*10+(a mod 10);
a:=a div 10;
until a=0;
exit(kq);
end;
begin
clrscr;
write('Nhap a,b: ');readln(a,b);
for i:=a to b do
if i=dx(i) then inc(d);
writeln(d);
readln
end.
uses crt;
Var
A:array[1..10000000] of longint;
n,i,j,d:longint;
S:string;
function dx(x:longint):boolean;
begin clrscr;
str(x,S); dx:=true;
for j:=1 to length(S) do if S[j]<>S[length(S)-j+1] then dx:=false;
end;
Begin
readln(n); d:=0;
for i:=1 to n do read(A[i]);
for i:=1 to n do if dx(A[i]) then write(A[i],' ');
Readln;
End.
