Menu

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 Função"

var

N: Inteiro
R: Caractere

Funcao ParOuImpar(V: Inteiro): Caractere

Inicio
Se (V%2 = 0) entao
Retorne "PAR"
senao
Retorne "IMPAR"
FimSe

FimFuncao


inicio

Escreva("Digite um numero: ")
Leia(N)
R <- ParOuImpar(N)
Escreva ("O numero ", N, " e um valor ", R)

fimalgoritmo