求大神救命,求算法大意,小弟在线等!!!! program chu7_3; 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, ' '); readln; end. I