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