单项选择题
有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）
A.16
B.20
C.27
D.30
点击查看答案&解析
相关考题
-
单项选择题
有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）
A.L=36
B.L=39
C.L=54
D.L=42 -
单项选择题
有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的运行结果是：（）
A.2；2；2；3；3；3；4；4；4
B.2；3；4；2；3；4；2；3；4
C.3；3；3；3；3；3；3；3；3
D.4；3；2；4；3；2；4；3；2 -
单项选择题
有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的运行结果是：（）
A.0
B.24
C.120
D.144
