pascal编程100~999回文数

"回文数"是一种数字.如:98789, 这个数字正读是98789,倒读也是98789,正读倒读一样,所以这个数字

对于三位的回文数，其实就是个位、百位相同的数，可以用下面的程序输出：

var i,j:integer;
begin
for i:=1 to 9 do for j:=0 to 9 do writeln(i,j,i);
end.

以上程序非常简单，结果也是正确的，不过你们老师可能不给分，因为你没有按照他的要求使用IF语句，他心中的满分程序如下：

var i,a,b:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 10;
if a=b then writeln(i);
end;
end.