ALGORITMO - Numero Par/Impar e Positivo/Negativo [EXERCÍCIO]

Vídeo Tutorial

VisualG - Determinar Numero Par/Impar e Positivo/Negativo 

PROGRAMA USADO: VigualG

Método Utilizado no vídeo ! 

Método 1

var

numero: Inteiro

inicio

escreva("DIGITE NUMERO INTEIRO: ")

leia(numero)

se (numero>0) entao

 escreval("O Numero" , numero , " é Positivo ")

senao

   escreval("O Numero" , numero , " é Negativo ")

se (numero) mod 2 = 0 entao

  escreval("O Numero" , numero , " é PAR ")

senao

   escreval("O Numero" , numero , " é IMPAR ")

  

fimse

fimse

fimalgoritmo

--------------------------------------------------------------------------

Método 2

var

numero: Inteiro

 

inicio

escreva("DIGITE QUALQUER NUMERO:")

leia(numero)

se (numero<0)  entao

    escreval("Negativo:", numero)

senao

     escreval("positivo:", numero)

se (numero mod 2 = 0 ) entao

escreval("O Numero é Par")

senao

escreval("O Numero é impar")

     fimse

    fimse

fimalgoritmo