• 2022-06-19
    阅读下列FORTRAN77程序:INTEGERB(4,4),PN=4CALLSUB(B,N)WRITE(*,*)P(B,N)ENDSUBROUTINESUB(Q,N)INTEGERM,N,K,Q(N,N)D010K=1,ND010M=1,N10Q(M,K)=8*(K-1)+MENDINTEGER FUNCTI()N P(B,N)INTEGERB(N,N)P=0D0100K=1,N100P=P+B(K,K)END运行上述程序后,输出的结果为()。
    A: 55
    B: 56
    C: 57
    D: 58