Difference between revisions of "F90: Números pares"
From AdonaiMedrado.Pro.Br
(New page: == Problema == Fazer um programa capaz de imprimir or números pares de N até M sendo N e M informados pelo usuário. == Solução == <code lang="fortran"> PROGRAM aula2e4 IMPLICIT NONE...) |
(No difference)
|
Latest revision as of 10:35, 9 September 2008
Problema
Fazer um programa capaz de imprimir or números pares de N até M sendo N e M informados pelo usuário.
Solução
PROGRAM aula2e4 IMPLICIT NONE INTEGER :: N, M, I, C WRITE (*,*) "Digite o primeiro número: " READ (*,*) N WRITE (*,*) "Digite o segundo número: " READ (*,*) M IF (MOD(N,2) /= 0) THEN I = N+1 ELSE I = N END IF DO C=I, M, 2 WRITE (*,*) C END DO END PROGRAM aula2e4
