//Ler um número inteiro e mostre uma mensagem indicativa
//de que este número é par ou ímpar e se este é positivo ou negativo.

var
   num,resto : inteiro
inicio
   escreval("Digite um número")
   leia(num)
   resto <- num mod 2
   se ( resto = 0) entao
      escreva("O numero é par e")
   senao
      escreva("O numero é ímpar e")
   fimse
   se ( num >= 0) entao
      escreval(" positivo.")
   senao
      escreval(" negativo.")
   fimse

fimalgoritmo

//Crie um algoritmo que gere
//e escreva os número ímpares dos números lidos entre 0 e 100.

SOLUÇÃO:

var
  i,resto : inteiro
inicio
      enquanto (i <= 100) faca
          resto <- i mod 2
          se (resto <> 0) entao
             escreval("Numero impar:", i)
          fimse
          i<-i+1
      fimenquanto
fimalgoritmo