最佳答案

虽然我的算法有点复杂,但结果应该符合你的要求

var //数字直角三角形
i,j,n,a,b:integer;
begin
readln(n);
a:=1;
for i:=1 to n do
begin
write(a);
b:=n-i+1;
for j:=1 to i-1 do
begin
write(' ',a-b);
b:=b+(n-j);
end;
a:=a+(n-i+1);
writeln;
end;
end.