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
C Este programa calcula ‚ para calcular a soma de 4 numeros
Program Calcule
IMPLICIT NONE
Real Soma_Quadrado, Numero1, Numero2, Numero3, Numero4;
Print *, "ENTRE COM OS QUATROS NUMEROS"
read(*,*) Numero1, Numero2, Numero3, Numero4
Soma_Quadrado=0
C Soma_Quadrado=(Numero1**2+Numero2**2+Numero3**2+Numero4**2)
IF (MOD(Numero1,2.0).ne.0.0) then
Soma_Quadrado=Soma_Quadrado+Numero1**2
endif
IF (MOD(Numero2,2.0).ne.0.0) then
Soma_Quadrado=Soma_Quadrado+Numero2**2
endif
IF (MOD(Numero3,2.0).ne.0.0) then
Soma_Quadrado=Soma_Quadrado+Numero3**2
endif
IF (MOD(Numero4,2.0).ne.0.0) then
Soma_Quadrado=Soma_Quadrado+Numero4**2
endif
Write(*,*) Numero1, Numero2, Numero3, Numero4
C print *, "media do semestre = ", Media_Semestre
Print 4, Soma_Quadrado
4 FORMAT (////5X, "SOMA QUADRADO = ", f8.4)

Stop
end program Calcule