algoritmo "divisao_enquanto"
// Função :
// Autor :
// Data : 31/05/2017
// Seção de Declarações
//04 - Escreva um algoritmo para ler 2 valores e se o Segundo Valor informado for ZERO,
//deve ser lido um novo valor, ou seja, para o Segundo valor não pode ser aceito o valor
//zero e imprimir o resultado da divisão do primeiro valor lido pelo segundo valor lido.
//(utilizar a estrutura REPITA).
//05 - Reescreva o exercício anterior [04] utilizando a estrutura ENQUANTO.
var
num1, num2, divisao: real
inicio
// Seção de Comandos
escreval("Este programa divide dois números")
escreval("Digite o primeiro número")
leia (num1)
enquanto (num2=0) faca
escreval ("Digite o segundo número")
leia(num2)
se(num20) entao
divisao:= num1/num2
senao
escreval("Não existe divisão por zero")
fimse
fimenquanto
escreval("O resultado da divisão é ", divisao)
fimalgoritmo