4_46

algoritmo "semnome"
var
   num, valor:inteiro
   resultado:caracter
inicio
      escreval("Digite um valor Decimal: ")
      leia(num)
      valor <- (num)
      enquanto (num > 0) faca
               escolha (num%8)
                       caso 1
                       resultado <- ("1" + resultado)
                       caso 2
                       resultado <- ("2" + resultado)
                       caso 3
                       resultado <- ("3" + resultado)
                       caso 4
                       resultado <- ("4" + resultado)
                       caso 5
                       resultado <- ("5" + resultado)
                       caso 6
                       resultado <- ("6" + resultado)
                       caso 7

                       resultado <- ("7" + resultado)
              fimescolha
              num <- (num \ 8)
     fimenquanto
     escreval (resultado)
fimalgoritmo