프로그램 QnA IMPLICIT NONE CHARACTER(LEN=50) :: QUESTION WRITE (*,*) "QnA 프로그램에 오신 것을 환영합니다!" WRITE (*,*) "질문을 하세요: " READ (*,'(A)') QUESTION IF (INDEX(UPCASE(QUESTION), "이 웹 앱은 무엇인가요?") /= 0) THEN WRITE (*,*) "이 웹 앱은 포트란 코드 편집기로, 구문 강조, 자동완성 및 여러 가지 기능이 있습니다!" WRITE (*,*) "이 웹 앱을 통해 브라우저에서 직접 코드를 작성하고 실행할 수 있습니다. 소프트웨어를 설치할 필요가 없습니다." WRITE (*,*) "구문 강조 기능은 코드가 아름답게 보이도록 하며, 자동완성 기능은 코드를 더 빠르고 정확히 작성하는 데 도움이 됩니다." WRITE (*,*) "또한 되돌리기/다시 실행, 코드 복사 또는 내보내기, 오프라인 작업 등과 같은 많은 다른 기능이 있습니다!" ELSE WRITE (*,*) "그럼, 무얼 기다리고 있나요? 지금 코드를 편집해보세요." END IF END PROGRAM QnA