Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement