CALCULAPOTENCIA2E3

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "calculapotencia2e3"
Var
 numero,potencia : real
Inicio
 escreva("Digite um número: ")
 leia(numero)
 se numero >= 0 entao
 potencia <- numero ^ 2
 escreva("O número ", numero, " é par! ")
 escreva("A Potencia de ",numero ," elevado a 2 é :",potencia )
 senao
 potencia <- numero ^ 3
 escreva("O número ", numero, " é ímpar! ")
 escreva("A Potencia de ",numero," elevado a 3 é :",potencia)
 fimse
Fimalgoritmo