F90: Simples contador
From AdonaiMedrado.Pro.Br
Problema
Fazer um programa capaz de contar todos os números inteiros de N até M sendo N e M informados pelo usuário.
Solução
PROGRAM aula2e1 IMPLICIT NONE INTEGER :: N, M, C WRITE (*,*) "Digite o primeiro número: " READ (*,*) N WRITE (*,*) "Digite o segundo número: " READ (*,*) M DO C=N, M WRITE (*,*) C END DO END PROGRAM aula2e1