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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 06:38:00
pascal求打印回文数寻找回文数.我们把形如:121,3223这种正读反读都一样的数据称为回文数,你能编写程序找出N以内的所有回文数么?(N不超出32767)输入:输入一个整数,n样例输入:300输出:1 2
x]n@rߚJV'{pIYȶkՒ&ieUj*P)B@ x[i 5s=3wf=}l ,^y639Z-9|>ȣ#x-/U*cZ"7L|t7n?GJf<k4``^}h X%Z.Ӹwb߸k/#1ZH<H%*STH B X96`@yPEPePA>Lj 1 AA A^CǧC\N2Us,ު%;fZ%cMgf^xEZWf^^a W4Dd!RNn3n۲MXymӮcy&V0Llз3x#~_O)

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.