作业帮数字三角形pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/17 02:47:06
数字三角形pascal
【试题描述】
输入正数N,输出下列形状的三角形.例如：当N=5时输出：
11
7 12
4 8 13
2 5 9 14
1 3 6 10 15
【输入描述】
一个整数N（ N
【试题描述】
输入正数N,输出下列形状的三角形.例如：当N=5时输出：
11
7 12
4 8 13
2 5 9 14
1 3 6 10 15
【输入描述】
一个整数N（ N
var i,j,k,n:integer;
a:array[1..5,1..5] of integer;
begin
readln(n);
k:=1;
for i:=n downto 1 do
for j:=1 to n-i+1 do
begin
a[i+j-1][j]:=k;
k:=k+1;
end;
for i:=1 to n do
begin
for j:=1 to i do
write(a[i][j],' ');
writeln;
end;
end.
a:array[1..5,1..5] of integer;
begin
readln(n);
k:=1;
for i:=n downto 1 do
for j:=1 to n-i+1 do
begin
a[i+j-1][j]:=k;
k:=k+1;
end;
for i:=1 to n do
begin
for j:=1 to i do
write(a[i][j],' ');
writeln;
end;
end.