Exemplo 41

==============================================================

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).

==============================================================

var

valor1,valor2:inteiro

inicio

// Seção de Comandos

escreval("Entre com o primeiro valor ")

leia(valor1)

repita

   escreval("Entre com o segundo valor")

   leia(valor2)

ate(valor2<>0)

escreval("Resultado da divisao : ",valor1/valor2)

fimalgoritmo

==============================================================