EM PORTUGOL.
Leia 5 valores Inteiros. A seguir mostre quantos valores digitados foram pares, quantos valores digitados foram impares, quantos valores digitados foram positivos e quantos valores digitados foram negativos.
Entrada:O arquivo de entrada contém 5 valores inteiros quaisquer.
Saída: Imprima a mensagem conforme o exemplo fornecido, uma mensagem por linha, não esquecendo o final de linha após cada uma.
Leia 5 valores Inteiros. A seguir mostre quantos valores digitados foram pares, quantos valores digitados foram impares, quantos valores digitados foram positivos e quantos valores digitados foram negativos.
Entrada:O arquivo de entrada contém 5 valores inteiros quaisquer.
Saída: Imprima a mensagem conforme o exemplo fornecido, uma mensagem por linha, não esquecendo o final de linha após cada uma.
Lista de comentários
Segue o exemplo de solução em Portugol para o problema descrito:
Algoritmo ContadorDeNumeros
var
valor, qtdPares, qtdImpares, qtdPositivos, qtdNegativos: inteiro
inicio
qtdPares <- 0
qtdImpares <- 0
qtdPositivos <- 0
qtdNegativos <- 0
para i de 1 ate 5 faca
escreva("Digite o valor ", i, ": ")
leia(valor)
se valor mod 2 = 0 entao
qtdPares <- qtdPares + 1
senao
qtdImpares <- qtdImpares + 1
fimse
se valor > 0 entao
qtdPositivos <- qtdPositivos + 1
senao se valor < 0 entao
qtdNegativos <- qtdNegativos + 1
fimse
fimpara
escreva(qtdPares, " valor(es) par(es)")
escreval()
escreva(qtdImpares, " valor(es) impar(es)")
escreval()
escreva(qtdPositivos, " valor(es) positivo(s)")
escreval()
escreva(qtdNegativos, " valor(es) negativo(s)")
fim_algoritmo
Este algoritmo lê 5 valores inteiros digitados pelo usuário e, em seguida, conta quantos deles são pares, quantos são ímpares, quantos são positivos e quantos são negativos. Depois, imprime essas contagens na tela, seguindo o formato especificado no enunciado do problema.