Alg - Lista 2 - Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem peso 2 (2¹), 4 (2²), 8 (2³), etc.

algoritmo "Binário para Decimal"


var
     binario,decimal,n1,n2,n3,n4,n5,n6: numerico

inicio
 
   escreval("Entre com o número em binário")
   leia(n1,n2,n3,n4,n5,n6)
   decimal<- ((n6*(2^0))+(n5*(2^1))+(n4*(2^2))+(n3*(2^3))+(n2*(2^4))+(n1*(2^5)))
   escreva("O número em decimal eh: ",decimal)

fimalgoritmo