你可能感興趣的試題

下列程序執(zhí)行后的輸出結果為()。
CHARACTER9*C
C=’1234567890’
CALLSS(C)
END
SUBROUTINESS(X)
CHARACTERX*2
WRITE(*，*)X
END

當輸入1.5，2.5，3.5，4.0下列程序執(zhí)行后的輸出結果為()。
DIMENSIONA(2，2)
READ(*，*)A
SUM=0
DO10I=1，2
DO20J=I，2
K=A(I，J)*I*J
10A(1，2)=K
WRITE(*，*)A(2，1)
END