4_11

algoritmo "4_11"

      declare dividendo, divisor, qd, resto:inteiro;

      escreva("Informe o dividendo: ");
      leia(dividendo);
      escreva("Informe o divisor: ");
      leia(divisor);
      qd <- 0;
      resto <- 0;
      enquanto (dividendo - divisor >= 0) faca
               se (dividendo - divisor >= 0) entao
                  qd <- qd + 1;
               fimse
               resto <- dividendo - divisor;
               dividendo <- resto;
      fimenquanto
      escreval("O resto da divisão é: ", resto);
      escreval("O valor da divisão é: ", qd);

fimalgoritmo