推 ivan327:我看到"你北七嗎"就笑了 01/07 14:48
推 Airsonata20:那個" 你北七嗎"有創意XD 01/07 15:13
推 seraphimx11:推"你北七嗎" 01/07 23:02
推 xyz60410: 隼興帥!! 01/08 19:13
program exam_4
real,dimension(:),allocatable::div
integer::m,n,i=1
div=0
write(*,*)"請輸入一正整數n"
read(*,*)n
if(n<=0)then
write(*,*)"你北七嗎"
else
m=n
allocate(div(m))
do
i=i+1
if(mod(n,i)==0)then
div(i)=div(i)+1
n=n/i
i=1
endif
if(n==1)exit
enddo
if(sum(div)==1)then
write(*,*)"n是質數"
else
write(*,'(A2)',advance='no')"n="
do j=2,m
if(div(j)==1)then
write(*,'(A1,I0,A1)',advance='no')"(",j,")"
elseif(div(j)>1)then
write(*,'(A1,I0,A1,I0,A1)',advance='no')"(",j,"^",int(div(j)),")"
endif
enddo
write(*,*)
endif
endif
end program
我是用除了1以外最小的因數一定是質數的想法
有人有更好的寫法嗎@@?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.22.94