LD1-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 "divide subtraindo"

Var
    num1,num2,res: inteiro
Inicio
    Escreva("Digite dois numeros para serem divididos: ")
    Leia(num1)
    Leia(num2)
    res <- 0
    Se(num2>num1)Entao
    Enquanto(num2>0)Faca
        num2 <- num2 - num1
        res <-res+1
    Fimenquanto
    Senao
        Enquanto(num1>0)Faca
            num1 <- num1 – num2
            res <-res+1
        Fimenquanto
    Fimse
    Escreva("O resultado da divisao e ",res)
Fimalgoritmo