pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/30 21:16:38
pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
![pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁](/uploads/image/z/7050925-37-5.jpg?t=pascal%E5%9B%9E%E6%96%87%E6%95%B0+1%E2%80%94%E2%80%941000%E4%B8%AD%E6%89%80%E6%9C%89%E5%9B%9E%E6%96%87%E6%95%B0%E8%BE%93%E5%87%BA%2C%E6%80%8E%E4%B9%88%E6%89%93%2C%E8%A6%81%E6%B1%82%E7%AE%80%E6%B4%81)
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
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