DATA L , M , N/1 , 10 , 4/
CALL FAC(L , M)
PRINT * , L , M , N
N=20
M=25
CALL FAC(L , M)
PRINT * , L , M , N
END
SUBROUTINE FAC(K , M)
N=0
DO 1 J=1 , N
K=K*J ,
N=N+1
1CONTINUE
END
(A) 120 4
20 25 20
(B) 1 4 10
202520
(C) 1104
252525
(D) 1104
12520
参考答案