作业帮pascal求打印回文数
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 17:53:18
pascal求打印回文数
寻找回文数.我们把形如：121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?（N不超出32767)
输入：
输入一个整数,n
样例输入：300
输出：1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 101 111 121 131 141 151 161 171 181 191 202 212 222 232 242 252 262 272 282 292
寻找回文数.我们把形如：121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?（N不超出32767)
输入：
输入一个整数,n
样例输入：300
输出：1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 101 111 121 131 141 151 161 171 181 191 202 212 222 232 242 252 262 272 282 292
var n,i,j:integer; s:string;
begin
readln(n);
for n:=1 to n do
begin
str(n,s);
i:=1; j:=length(s);
while (i=j then write(n,' ');
end;
writeln;
end.
begin
readln(n);
for n:=1 to n do
begin
str(n,s);
i:=1; j:=length(s);
while (i=j then write(n,' ');
end;
writeln;
end.