关于Turbo Pascal的难题22/27

程序：

var i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to i do write(i,'*',j,'=',i*j,' ');
writeln;
end;
end.

结果：

1*1=1
2*1=2 2*2=4
3*1=3 3*2=6 3*3=9
4*1=4 4*2=8 4*3=12 4*4=16
5*1=5 5*2=10 5*3=15 5*4=20 5*5=25
6*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36
7*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49
8*1=8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64
9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81

以后别说这些是难题，我看你这些题目没有老师的例子的复杂，我给你写了这么多，也没见你自己能举一反三。