Difference between revisions of "F90: Números pares interativo"
From AdonaiMedrado.Pro.Br
(New page: == Problema == Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números. == Solução == <code lang="fortran"> PROGRAM...) |
(No difference)
|
Revision as of 10:58, 9 September 2008
Problema
Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números.
Solução
PROGRAM aula2e5 IMPLICIT NONE INTEGER :: N, C, R WRITE (*,*) "Digite o número N: " READ (*,*) N IF (MOD(N,2) /= 0) THEN C = N+1 ELSE C = N END IF DO WRITE (*,*) C WRITE (*,*) "Digite 1 para exibir o próximo número, zero para finalizar: " READ (*,*) R IF (R/=1) EXIT C = C + 2 END DO END PROGRAM aula2e5
