Pares e ímpares com ciclo repita...enquanto
programa
pares_e_impares
declaracoes
inteiro x, r
inicio
repita
escreva( "\nInsira um número:
" )
leia( x )
se (x != 0 ) entao
r <- x mod 2
se (r = 0) entao
escreva( "\n", x,
" é par" )
senao
escreva( "\n", x,
" é ímpar" )
fimse
fimse
enquanto( x != 0 )
fim
Pares e ímpares com ciclo enquanto...faça
programa
pares_e_impares
declaracoes
inteiro x, r
inicio
escreva( "\nInsira um número: " )
leia( x )
enquanto( x != 0 ) faca
r <- x mod 2
se (r = 0) entao
escreva( "\n", x,
" é par" )
senao
escreva( "\n", x,
" é ímpar" )
fimse
escreva( "\nInsira um número:
" )
leia( x )
fimenquanto
fim
Sem comentários:
Enviar um comentário