Var n,m,i:integer;
function rSum(j:integer):integer;
var sum:integer
;begin
sum:=0;
while j<>0 do
begin
sum:=sum*10+(j mod 10);
j:=j div 10;
end;
rSum:=sum;end;
begin
readln(n,m);
for i:=n to m do
if i=rSum(i)
then write(I,’’);
end.帮忙翻译下，让我知道每句什么意思，在干什么.谢谢
I

function rSum(j:integer):integer; var sum:integer ;begin sum:=0; while j<>0 do begin sum:=sum*10+(j mod 10); j:=j div 10; end; rSum:=sum;end; //明显是把J倒序得到新数。e.g123→321

readln(n,m); for i:=n to m do if i=rSum(i) then write(I,’’ 看从n到m有倒序后不变的。没有和

整个程序就是找n到m数每位相同的 e.g:22,333