阅读以下FORTRAN程序: READ(*,*)M IF(M.LT.100.AND.M.GT.999)STOP K=M/100 L=(M-K*100)/1O N=M-K*100-L*10 MM=K+N WRITE(*,(2X,13))MM END 键盘输入

admin2008-02-07  29

问题 阅读以下FORTRAN程序:
READ(*,*)M
IF(M.LT.100.AND.M.GT.999)STOP
K=M/100
L=(M-K*100)/1O
N=M-K*100-L*10
MM=K+N
WRITE(*,(2X,13))MM
END
键盘输入600,则程序的输出结果是:

选项 A、8
B、3
C、7
D、6

答案D

解析 K=6,L=(600-6*100)=0,N=(600-6*100-L*10)=0,MM=K+N=6+0=6。
转载请注明原文地址:https://kaotiyun.com/show/xtwf777K
0

相关试题推荐
随机试题
最新回复(0)