Question

Escreva um algoritmo que leia um número inteiro. Se o número lido for positivo,escreva uma mensagem indicando se ele é par ou impar. Se o número for negativo,escreva a seguinte mensagem "este número não é positivo"

Answer 1

Resposta:

Usando linguagem Viasualg

Algoritmo "ParOuImpar"

Var

numero : inteiro

Inicio

escreva("Escreva um número: ")

leia(numero)

se numero mod 2 = 0 entao

escreva("O número ", numero, " é par!")

senao

escreva("O número ", numero, " é ímpar!")

se numero >= 0 entao

escreva (" Este número é positivo")

senao

escreval (" Este número não é positivo")

fimse

fimse

Fimalgoritmo