输入n(n

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 02:33:28
输入n(n

输入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世界欢迎你加入!