有没有大佬可以指导我解决这个fortran程序？

Question

如题所述

Answer 1

Implicit none
Integer::I,J,K,JN,N=0
Integer:: N521(15,3)
open(12, file='学号—f16.txt')
do I=1,3
Jn=(20-I*5)/2
do J=1,Jn
K=20-I*5-J*2
if(K==0) cycle
N=N+1
N521(N,1)=I; N521(N,2)=J; N521(N,3)=k
Write(*,*) N521(N,1:3)
Write(12,*) N521(N,1:3)
enddo
enddo
write(*,*) ' 共有',N, ' 钟兑换方法。'
write(12,*) ' 共有',N, ' 钟兑换方法。'
close(12)
end本回答被网友采纳