Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM TESTE
- !LOCAIS DE MEMÓRIA
- INTEGER M
- REAL FATORIAL
- !ENTRADA DE DADOS
- WRITE (*,*) 'DIGITE M'
- READ (*,*) M
- !SAÍDA DE DADOS
- WRITE (*,*) 'FATORIAL = ', FATORIAL(M)
- END PROGRAM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement