Question

求pascal程序（用for语句） 打印图形： 1 12 123 1234 12345 1……n 和上面类似，但是金字塔形的图案

Answer 1

使用双重循环
program zlx;
var
n,i,j:integer;
begin
read(n);
for i:=0 to n-1 do
begin
write(1:40-2*i);
for j:=1 to i do
write(1+j:4);
writeln;
end;
end.

欢迎追问

追问

不用了，谢谢，非常感谢你

Answer 2

求输出结果
开始读入个n？
是： 1
12
123
…… 这样的？？

追问

yes
相当正确

追答

var n,i,j,q,qq:longint;
begin
read(n);
qq:=n;
for i:=1 to n do
begin
for j:=1 to qq-1 do write(' ');
qq:=qq-1;
q:=q+1;
for j:=1 to q do write(j,' ');
writeln;
end;
end.