1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | C Este Programa Lˆ Um N£mero Qualquer Mostra DivisÆo Desse N£mero Por 3. Program Divisao Implicit None Real Quociente Integer Inteiro_Qualquer , Resto Print *, "Entre Com O Quociente Da DivisÆo" Read(*,*) Inteiro_Qualquer Quociente = Inteiro_Qualquer / 3 Resto = Mod(Inteiro_Qualquer,3) Print 100, Inteiro_Qualquer, Quociente, Resto 100 Format (3X, "Quociente Da DivisÆo = ", i5, " Por 3 =", f8.2, "E & O Resto Dessa DivisÆo ", i5) resto = Mod(Inteiro_Qualquer,2) If(Resto == 0) Then Print *, " Par" Else Print *, " Ömpar" EndIf Stop End Program Divisao |
Direct link: https://paste.plurk.com/show/784550