Lista 25 out. 6

Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-).

Ex.: 12 / 3 = 4 = 12-3=9-3=6-3=3-3=0 (4 vezes)

algoritmo "25 Outubro 6"
// Função : Realizar divisao com o operador de subtracao
// Autor : Gustavo Ferreira
// Data : 26/10/2010
// Seção de Declarações
var
   i,numero,vezes:inteiro
inicio
// Seção de Comandos
   vezes<- 0
   escreval("Informe o numero:")
   leia(numero)
   escreval("Informe o divisor:")
   leia(i)
   escreval(" - - - -")
   escreva(numero," /",i," =")
   enquanto (numero >= i) faca
      vezes<-vezes+1
      numero<- numero - i
   fimenquanto
   escreva(vezes)
fimalgoritmo