单选题
1.00分
阅读以下FORTRAN程序: READ( *,* )M IF(M. LT. 100. AND. M. GT. 9f9?STOP K=M/100 L=(M-K* 100)/10 N=M—K*100—L*...
阅读以下FORTRAN程序:
READ( *,* )M
IF(M. LT. 100. AND. M. GT. 9f9?STOP
K=M/100
L=(M-K* 100)/10
N=M—K*100—L*10
MM=K+N
WRITEO,(2X,I3))MM END
键盘输入600,则程序的输出结果是:
READ( *,* )M
IF(M. LT. 100. AND. M. GT. 9f9?STOP
K=M/100
L=(M-K* 100)/10
N=M—K*100—L*10
MM=K+N
WRITEO,(2X,I3))MM END
键盘输入600,则程序的输出结果是:
参考答案: D
参考解析: 解K=6,L=(600—6*100)=0,N=(600—6*100—L*10)=0,MM=K+N=6+0=6。
答案:D