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

阅读以下FORTRAN 程序：

READ( *,*) M

IF (M. LT. 100. AND. M. GT. 999) STOP

K=M/100

L=(M - K*100)/10

N= M - K* 100 - L* 10

MM= K + N

WRITE( * ,,(2X,I3)’)MM

END

键盘输入600，则程序的输出结果是：

A. 8 B. 3 C. 7 D. 6

您可能感兴趣的试题

阅读以下 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若运

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

答案解析
阅读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(* *)NDO 10 K-1 NS=S+K**210 CONTI

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

答案解析