铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多 ![]()
|
【答案】应助回帖
试一试这个,上面那个不知道为什么还弄个表情出来………………
program example
implicit none
integer::i,j,n
write(*,*) 'Input the number of lines:'
read(*,*) n
do i=1,n
do j=1,i
write(*,"(g0,\)" ) j
end do
write(*,*)
end do
read(*,*)
end program example
如果你感觉g0不懂的话,把g0改成i1。 |
|