单项选择题
有程序:DATAI,M,N/2,1,4/10M=M*II=I+1IF(I.GT.N)GOT020GOTO1020WRITE(*,*)MEND执行此程序后,输出结果为:()
A.6
B.24
C.120
D.720
点击查看答案&解析
相关考题
-
单项选择题
有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()
A.ABCDEFGH
B.ABCDEF
C.ABCD
D.EFGH -
单项选择题
有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序执行后的输出结果为:()
A.ABC
B.BCD
C.CDE
D.DEF -
单项选择题
有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1,2))ENDSUBROUTINESSl(x)DIMENSIONx(3)WRITE(*,*)x(2)END当输入1、2、3、4、5、6、7、8、9时,此程序执行后的输出结果为:()
A.3
B.4
C.5
D.6
