Respostas
respondido por:
1
Resposta:
Explicação:
Algoritmo "PárOuÍmparProcedimento"
Var
N : Inteiro
Procedimento ParOuImpar(v : Inteiro)
Inicio
Se (v%2=0)Entao
Escreval(" O valor ", v, " é Pár")
Senao
Escreval(" O valor ", v, " é Ímpar")
FimSe
FimProcedimento
Inicio
Escreva(" Digite um valor: ")
Leia(N)
ParOuImpar(N)
Fimalgoritmo
Perguntas similares
5 anos atrás
5 anos atrás
5 anos atrás
7 anos atrás
7 anos atrás
8 anos atrás
8 anos atrás