F90: Números pares interativo

From AdonaiMedrado.Pro.Br
Jump to: navigation, search

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