Question

3、下列fortran程序的功能是:从键盘输入一个正整数,如果该数是素数,则输出该

3、下列FORTRAN程序的功能是：从键盘输入一个正整数，如果该数是素数，则输出该素数，否则输出该数的所有因子（除去1或自身）。请在程序中的下划线处填入合适的内容。（所谓素数，是指除1和该数本身之外，不能被其它任何整数整除的数）
LOGICAL P
READ(*, *) N
P= (1)
K=2
10 IF(K .LE. N/2) THEN
IF (MOD(N, K) .EQ. 0) THEN
WRITE(*, *) K
IF(P) P= (2)
END IF
K=K+1
GOTO 10
END IF
IF(P) WRITE(*, *) N
END

Answer 1

 LOGICAL P
      READ(*,*) N
c n=97
 P=.not.p  
 K=2
10 IF(K.LE.N/2) THEN
 IF (MOD(N,K).EQ.0) THEN
  WRITE(*,*) K
  IF(P) P=.not.p  
 ENDIF 
 K=K+1 
 GOTO 10
 ENDIF 
 IF(P) WRITE(*,*) N
 END

Answer 2

.true.
.false.