Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM TESTE
- !LOCAIS DE MEMORIA
- INTEGER SI, SP
- !CALCULO
- CALL SOMA_PAR_IMPAR(SI,SP)
- !SAÍDA DE DADOS
- WRITE(*,8) SI, SP
- 8 FORMAT (1X, 'SOMA DOS PARES =', I5 / &
- 1X, 'SOMA DOS IMPARES =', I5)
- END PROGRAM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement