PROGRAM Ex0712 IMPLICIT NONE INTEGER c,r !循环开始 DO c=1,9 DO r=1,c WRITE(*,100) c,'*',r,'=',c*r END DO WRITE(*,*) !循环结束 END DO !格式说明语句 100 FORMAT(i3,a1,i1,a1,i2,\) END