题目: |
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.
输入:90 120 输出:99 101 111
|