阅读以下FORTRAN程序：READ（，)M，NK=MOD（M，N)10IF（K.GT.0)THENM=NN=KK=MOD（M，N)COTO10ENDIFWRITE

阅读以下FORTRAN程序：

READ(*，*)M，N

K=MOD(M，N)

10IF(K.GT.0)THEN

M=N

N=K

K=MOD(M，N)

COTO10

ENDIF

WRITE(*，*)N

END

若运行以上程序时，由键盘输入：25，11则程序输出为()。

(A)3

(B)2

(D)0

参考答案

您可能感兴趣的试题

阅读以下 FORTRAN 程序：READ（* ， *)XIF（X ， LE ， 0)RHENY=0.0ELSEIF（X ， LT ， 5 ， 0) ， AND ，（X

答案解析
阅读以下FORTRAN程序 READ（*,*)M,NK=MOD（M,N)M=NN=KK=MOD（M,N)GOTO 10END IFWRITE（*,*)NEND若运

答案解析
阅读FORTRAN77程序：READ（*，100)A，B，C，DWRITE（*，*)D100FORMAT（F2．1，3（1X，F3.1))END运行上述程序时

答案解析
阅读FORTRAN77程序：READ（*，100)X100 FORMAT（3F3.1)WRITE（*，*)XEND运行上述程序时，如果从键盘输入

答案解析
阅读以下FORTRAN 程序：READ( * *) MIF (M. LT. 100. AND. M

答案解析
阅读FORTRAN程序：READ(* *)NDO 10 K-1 NS=S+K**210 CONTI

答案解析
阅读下列FORTRAN 程序： DIMENSION M（6） READ(* *)M DO 10 J

答案解析

阅读以下FORTRAN程序：READ（*，*)M，NK=MOD（M，N)10IF（K.GT.0)THENM=NN=KK=MOD（M，N)COTO10ENDIFWRITE