不是VIP会员,不能显示答案

题目解答

题目:
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
考点:
分析:
解答:
评论:
老师: