15问答网 > PASCAL 打印 1 121 12321 1234321 123454321 12345654321

PASCAL 打印 1 121 12321 1234321 123454321 12345654321

2024-12-04 06:00:46

推荐回答（1个）

回答1：

如果您需要的是
1
121
12321
1234321
123454321

那么代码为
var
n,i,j:integer;
begin
readln(n); //n为行数
for i:=1 to n do begin
write('':n-i);
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
end.

如果您只需要在同一排上输出，那么用下面一段代码
var
n,i,j:integer;
begin
readln(n);//n为一共有多少个数
for i:=1 to n do begin
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
if i<>n then write(' ');
end;
end.