编程打印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 ……
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 17:42:15
![编程打印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 ……](/uploads/image/z/1966406-14-6.jpg?t=%E7%BC%96%E7%A8%8B%E6%89%93%E5%8D%B09%2A9%E4%B9%98%E6%B3%95%E8%A1%A8%E7%9A%84%E4%B8%8B%E4%B8%89%E8%A7%92%E9%83%A8%E5%88%86+1+2+3+4+5+6+7+8+9+1+2+4+3+6+9+4+8+12+16+5+10+15+20+25+%E2%80%A6%E2%80%A6)
编程打印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 ……
编程打印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 ……
编程打印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 ……
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 ji then inc(a[i+1,i],a[j,i]);
end;
for i:=1 to 5do write(a[i,0]:3);
end.