作业帮输入n（n
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/25 05:19:23
x){o֥yt$ l0U%i
输入n（n
输入n（n
输入n（n
var
n,i,j,k:longint;
s:array [1..24,1..24] of longint;
begin
k:=0;
readln(n);
for i:=1 to n do for j:=1 to i do
begin
k:=(k+1) mod 10;
s[j,i-j+1]:=k;
end;
for i:=1 to n do
begin
for j:=1 to i-1 do write(' ');
write(s[i,1]);
for j:=2 to n-i+1 do write(' ',s[i,j]);
writeln;
end;
end.
——百度知道团队pas世界欢迎你加入!