[½»Á÷] ¡¾ÇóÖú¡¿´Ë³ÌÐòûÓдíÎ󣬵«ÊÇÔËÐÐÓÐÎÊÌ⣿

   SUBROUTINE find(first,last,n)
              IMPLICIT NONE
              LOGICAL::log
              INTEGER::i,j,k,first,last,n,sum
              first=10**n
              IF(n==0)first=0
              last=10**(n+1)
out:        DO j=first,last
                 DO i=j,last
                       log=(i+j)==4*10**n
                       IF(log)THEN
                          sum=0
in:                   DO k=i,j
                            sum=sum+k
                            IF(sum>=10**(n+1))EXIT in
                         ENDDO in
                         IF(sum==10**(n+1))THEN
                         first=i;last=j
                         EXIT out
                         ENDIF
                        ENDIF
                       ENDDO
                      ENDDO out
                     END SUBROUTINE find
  !
            PROGRAM main
            IMPLICIT NONE
            INTEGER::i,first,last,n,temp(5)
            OPEN(1,FILE='MYF1.OUT')
            DO n=1,3
                 CALL find(first,last,n)
                 DO i=first,last
                        temp(i-first+1)=i
                 ENDDO
                 WRITE(*,'(5I8)')temp;WRITE(1,'(5I8)')temp
            ENDDO
            END  PROGRAM main