Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "ParImpar Procedimento"
var
N: Inteiro
Procedimento ParOuImpar(V: Inteiro)
Inicio
Se (V%2 = 0) entao
EscrevaL("O numero ", V, " e PAR")
senao
EscrevaL("O numero ", V, " e IMPAR")
FimSe
FimProcedimento
inicio
Escreva("Digite um numero: ")
Leia (N)
ParOuImpar(N)
Leia (N)
ParOuImpar(N)