pascal求打印回文数寻找回文数.我们把形如:121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?(N不超出32767)输入:输入一个整数,n样例输入:300输出:1 2

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 06:49:15
pascal求打印回文数寻找回文数.我们把形如:121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?(N不超出32767)输入:输入一个整数,n样例输入:300输出:1 2

pascal求打印回文数寻找回文数.我们把形如:121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?(N不超出32767)输入:输入一个整数,n样例输入:300输出:1 2
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

pascal求打印回文数寻找回文数.我们把形如:121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?(N不超出32767)输入:输入一个整数,n样例输入:300输出:1 2
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.