Estava tentando resolver o seguinte problema:
Faça um algoritmo que leia um nº inteiro e mostre uma mensagem indicando se este número é par ou ímpar, e se é positivo ou negativo.
Fiz o algoritmo, mas quando coloco um número ímpar e negativo não aparece nada escrito, sendo que em todas as outras condições dá certo.
var
num :inteiro
inicio
escreva ("Digite um número: ")
leia (num)
se (num%2 = 0) e (num > 0) então
escreval (num, " é par e positivo")
senao
se (num%2 = 0) e (num < 0) então
escreval (num, " é par e negativo")
senao
se (num%2 = 1) e (num > 0) então
escreval (num, " é ímpar e positivo")
senao
se (num%2 = 1) e (num < 0) então
escreval (num, " é ímpar e negativo")
fimse
fimse
fimse
fimse
Queria que descobrissem onde eu tô errando