51问答网 > 怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1

怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1

2024-12-20 07:59:55

推荐回答（2个）

回答1：

1
121
12321
1234321
12321
121
1
程序如下：
var
i,s,j,k:longint;
begin
for i:=-3 to 3 do
begin
s:=abs(i);write('':s);
for j:=1 to 4-s do
write(j);
for k:=3-s downto 1 do
write(k);
writeln;
end;
end.
希望对你有帮助
如果需要输入n的话稍修改下便可

回答2：

begin
write('1 121 12321 1234321 12321 121 1');
end.
则是最简单的方法，当然还有别的方法！