4_48

algoritmo "semnome"

var
   n, cdn, cd, b:inteiro
   aux1, aux1r, aux2, aux2r, aux3, aux3r:inteiro
   aux4, aux4r:inteiro
inicio
      escreva("Informe o número em binário: ")
      leia(n)
      cdn <- n
      repita
            cd <- cd + 1
            cdn <- cdn\10
      ate(cdn = 0)
      escolha (cd)
              caso 1
                   b <- n * 1
              caso 2
                   b <- ((n\10)*2)   + ((n%10)*1)
              caso 3
                   b <- ((n\100)*4)   + ((n%100)\10)*2) + ((n%100)%10)*1)
              caso 4
                   aux1 <- (n\1000)*8
                   aux1r <- (n%1000)
                   aux2 <- (aux1r\100) * 4
                   aux2r <- aux1r%100
                   aux3 <- (aux2r\10) * 2
                   aux3r <- (aux2r%10) * 1
                   b <- aux1 + aux2 + aux3 + aux3r
              caso 5
                   aux1 <- (n\10000)*16
                   aux1r <- (n%10000)
                   aux2 <- (aux1r\1000) * 8
                   aux2r <- aux1r%1000
                   aux3 <- (aux2r\100) * 4
                   aux3r <- (aux2r%100)
                   aux4 <- (aux3r\10) * 2
                   aux4r <- (aux3r%10) * 1
                   b <- aux1 + aux2 + aux3 + aux3r + aux4 + aux4r
      fimescolha
      escreva(b)
fimalgoritmo