一个新人小白的愚蠢问题

七星彩

[Fortran] 纯文本查看 复制代码

program fcode_cn
  implicit none
  Integer , parameter :: TOPN = 100
  integer :: i
  Do i = 1 , TOPN , 2
    write(*,'(2(i4,1x),i4,"+",i4,"=",i5)') i , i+1 , i , i+1,  i+i+1
  End Do
end program fcode_cn