F90: Potências de 2

From AdonaiMedrado.Pro.Br
Revision as of 01:49, 28 August 2008 by Adonaimedrado (Talk | contribs) (Solução)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Problema

Fazer um programa capaz de exibir a pontência de 2 para um expoente informado pelo usuário.

Solução

PROGRAM aula1e4
	IMPLICIT NONE
	INTEGER :: a
	WRITE (*,*) "Digite o expoente: "
	READ (*,*) a
	WRITE (*,*) "O número 2 elevado a ",a," é igual a ",2**a
END PROGRAM aula1e4