1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
C Este Programa Calcula Os N£meros Ömpares Entre 100 e 200.
Program Impar100_200
Implicit None
Integer Contador, Total_Impares
Total_Impares=0
Do Contador= 100, 200, 1
If (Mod(Contador,2).NE.0) Then
Print 50, Contador
50 Format (3x, "O N£mero", i20.2, " Impar")
Total_Impares=Total_Impares+1
EndIf
EndDo
Print*, "Total De Impares Achados=" ,Total_Impares
Stop
End Program Impar100_200