源代码如下：
implicit none
integer i,j
print *,"****************************************************"
do i=1,9
do j=1,i
write(*,"(i2,a1,i1,a1,i2,$)"),i,"x",j,"=",i*j
end do
write(*,*)
end do
print *,"****************************************************"
编译、运行，结果如下：
相关攻略
近期热点
最新攻略
