有趣的数字图形II
题目描述
输入一个整数n(n≤12),打印出如下要求的方阵:左上到右下对角线上的数与行数相同,右上半个区域中每个元素等于左边的和下面的元素之和。每个元素场宽为5。左下半个区域为空。
输入
一个整数n(n≤12)
输出
n*n的方阵(场宽为5)。
样例输入
4
样例输出
1 3 8 20 2 5 12 3 7 4
提示
来源
var
a:array[1..100,1..100] of longint;
n,i,j:longint;
begin
readln(n);
for i:=1 to n do a[i,i]:=i;
for i:=n-1 downto 1 do
for j:=i+1 to n do
a[i,j]:=a[i+1,j]+a[i,j-1];
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]>0 then write(a[i,j]:5) else write('':5);
writeln
end;
end.
a:array[1..100,1..100] of longint;
n,i,j:longint;
begin
readln(n);
for i:=1 to n do a[i,i]:=i;
for i:=n-1 downto 1 do
for j:=i+1 to n do
a[i,j]:=a[i+1,j]+a[i,j-1];
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]>0 then write(a[i,j]:5) else write('':5);
writeln
end;
end.