1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
C Este programa Calcula o mˆs que vocÒ nasceu
Program MesNascimento
IMPLICIT NONE
Integer Mes_Nascimento
Print *, "ENTRE COM MES DE NASCIMENTO"
read(*,*) Mes_Nascimento
IF (Mes_Nascimento==1) then
print *, "nasceu em janeiro"
else
IF (Mes_Nascimento==2) then
Print *, "nasceu em fevereiro"
else
IF (Mes_Nascimento==3) then
Print *, "nasceu em mar‡o"
else
IF (Mes_Nascimento==4) then
Print *, "nasceu em abril"
else
IF (Mes_Nascimento==5) then
print *, "nasceu em maio"
else
IF (Mes_Nascimento==6) then
Print *, "nasceu em junho"
else
IF (Mes_Nascimento==7) Then
Print *, "nasceu em julho"
else
IF (Mes_Nascimento==8) Then
Print *, "nasceu em agosto"
else
IF (Mes_Nascimento==9) Then
Print *, "nasceu em setembro"
else
IF (Mes_Nascimento==10) Then
Print *, "nasceu em outubro"
else
IF (Mes_Nascimento==11) Then
Print *, "nasceu em novembro"
else
IF (Mes_Nascimento==12) Then
Print *, "nasceu em dezembro"
else
Print *, "errou o mˆs"
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Stop
End Program MesNascimento