Question

编程打印9*9乘法表的下三角部分 1 2 3 4 5 6 7 8 9 1 2 4 3 6 9 4 8 12 16 5 10 15 20 25 ……

快啊

Answer 1

var
a:array[1..5,0..5]of byte;
i,j:byte;
begin
for i:=1 to 5 do a[i,5]:=32;
for i:=4 downto 0 do
begin
for j:=1 to 5 do
a[j,i]:=a[j,i]div 2;
a[i+1,i]:=a[i+1,i+1];
for j:=1 to 5 do
if j<>i then inc(a[i+1,i],a[j,i]);
end;
for i:=1 to 5do write(a[i,0]:3);
end.