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 |
Direct link: https://paste.plurk.com/show/784538