F90: Números pares

From AdonaiMedrado.Pro.Br
Revision as of 10:35, 9 September 2008 by Adonaimedrado (Talk | contribs) (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...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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