QUESTÃO 5 - LISTA 5 (SEQUENCIAS) SEGUNDO ESTÁGIO

PROGRAM LISTA5_QUESTAO5
!LOCAIS DE MEMÓRIA
INTEGER I, N, D, NF, N_ANT, D_ANT
!ENTRADA DE DADOS
WRITE(*,*) 'ESCREVA O VALOR DO NUMERADOR DO PRIMEIRO TERMO'
READ(*,*) N_ANT
WRITE(*,*) 'ESCREVA O VALOR DO DENOMINADOR DO PRIMEIRO TERMO'
READ(*,*) D_ANT
WRITE(*,*) 'ESCREVA O NUMERO DE TERMOS'
READ(*,*) NF
!CÁLCULOS
N = N_ANT
D = D_ANT
DO I = 1, NF, 1
    WRITE (*,*) 'O VALOR DO QUOCIENTE', I, ' = ', N, '/', D
    N_ANT = N
    N = N + D
    D = N_ANT
END DO
END PROGRAM