Question

Crie um algoritmo que receba um número inteiro e imprima se ele é par ou ímpar. Caso seja
ímpar, deve-se testar se esse é um número de um algarismo e então imprimir o número escrito
por extenso.

Answer 1

algoritmo "algarismo"
// Função :
// Autor :
// Data : 24/05/2015
// Seção de Declarações
var
x ,alg : inteiro
ate10: vetor[0..10] de literal
inicio
ate10[0] <- "zero"
ate10[1] <- "um"
ate10[2] <- "dois"
ate10[3] <- "três"
ate10[4] <- "quatro"
ate10[5] <- "cinco"
ate10[6] <- "seis"
ate10[7] <- "sete"
ate10[8] <- "oito"
ate10[9] <- "nove"
escreval ("Digite um número inteiro: ")
leia (x) se x % 2 = 0 entao
escreval ("O número é PAR")
senao
escreval ("O número é IMPAR")
fimse
alg <- x
se (alg < 10)
entao
escreval(ate10[x])
fimse
// Seção de Comandos
Fimalgoritmo