pascal矩阵 输入n(1-9),输出如下列所示的方阵（这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25

pascal矩阵 输入n(1-9),输出如下列所示的方阵（这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25
pascal矩阵 输入n(1-9),输出如下列所示的方阵（这里n=5)
1 3 6 10 15
2 5 9 14 19
4 8 13 18 24
7 12 17 21 24
11 16 20 23 25

pascal矩阵 输入n(1-9),输出如下列所示的方阵（这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25
var
i,j,k,o,p,n,m:longint;
a:array[1..9,1..9]of longint;
begin
i:=1; j:=1; k:=1;
read(n);
while kn then
begin
j:=1+i-n;i:=n;
end;
end;
end;
for i:=1 to n do
for j:=1 to n do
if j=n then writeln(a[i,j]:3) else write(a[i,j]:3);
end.