作业帮 > 综合 > 作业

PASCAL 打印 1 121 12321 1234321 123454321 12345654321

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/16 07:02:06
PASCAL 打印 1 121 12321 1234321 123454321 12345654321
PASCAL 打印 1 121 12321 1234321 123454321 12345654321
如果您需要的是
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 in then write(' ');
end;
end.