- 817 名前：デフォルトの名無しさん mailto:sage [2007/09/17(月) 00:45:50 ]
- >>814
program unko
implicit none
integer n,i,m,k
write(*,'(a)', ADVANCE='NO')'input n:'
read(*,*)n
write(*,'(i4, a)', ADVANCE='NO')n,'= 1'
k=n
i=2
do while (i<=k)
m=mod(k,i)
if(m==0)then
write(*, '(a, i3)', ADVANCE='NO') ' *', i
k=k/i
cycle
else if(k==i)then
exit
else
i=i+1
cycle
endif
enddo
WRITE(*, *)
end program unko
FORTRAN90の標準内でやろうとすると、ADVANCE='NO'を使うことになると思う。
