作业帮pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
来源：学生作业帮助网 编辑：作业帮 时间：2024/09/29 15:37:21
x)+H,NNy:{iϦnP0|0
XٜN}ydgdz:/5>|]ó-6IE4NΆ+O/JUK%L⒢LhNNNNHef^ D8)rl
biE
@BIBJ>X($U#[G]A]! a<-@ݙYP9y%0Mi
Yp9,mXMļ,<;P {
pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
program long;
var
i:string;
j,k,l,m,n:longint;
begin
l:=0;
for k:=0 to 9 do
write(k,' ');
writeln;
for k:=1 to 999 do
begin
str(k,i);
for j:=1 to length(i) do
if (i[j]=i[length(i)-j+1]) and (j