fortran程序语句:
program main
implicit none
integer n,n1,n2,n3
! n=3*n1+2
! n=5*n2+3
! n=7*n3+3
do n=1,1000
do n1=0,333
do n2=0,200
do n3=0,142
if(n==3*n1+2.and.n==5*n2+3.and.n==7*n3+3)then
print*,n
end if
end do
end do
end do
end do
end
结果:38,143,248,353,458,563,668,773,878,983