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...) |
(→Solução) |
||
| Line 18: | Line 18: | ||
DO | DO | ||
WRITE (*,*) C | WRITE (*,*) C | ||
| − | WRITE (*,*) "Digite 1 para exibir o próximo número | + | WRITE (*,*) "Digite 1 para exibir o próximo número: " |
READ (*,*) R | READ (*,*) R | ||
IF (R/=1) EXIT | IF (R/=1) EXIT | ||
Latest revision as of 10:59, 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: " READ (*,*) R IF (R/=1) EXIT C = C + 2 END DO END PROGRAM aula2e5
