1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | C Este programa calcula ‚ para calcular a soma de 4 numeros Program Calcule IMPLICIT NONE Integer Final, Contador Real N1, Soma_Quadrado Soma_Quadrado=0 CONTADOR=0 Print *, "ENTRE COM QUANTIDADE DE NUMERO" Read(*,*) Final Print *, "ENTRE COM" ,Final, "NUMERO" DO WHILE (CONTADOR.LT.FINAL) Read(*,*) N1 IF(MOD(N1,2.0).eq.0.0) then Soma_Quadrado=Soma_Quadrado+N1**2 Endif CONTADOR=CONTADOR+1 Enddo Write(*,4) Soma_Quadrado C Print 4, Soma_Quadrado 4 FORMAT (////5X, "SOMA QUADRADO = ", f8.4) Stop End Program Calcule |
Direct link: https://paste.plurk.com/show/784553