Exercicio 16 capitulo 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 (21), 4 (22), 8 (23), etc. Por exemplo 110101 é 53 .
2 10
(1x32 + 1x 16 + 0x8 + 1x4 + 0x 2 + 1x1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Exercicio 2-16"
var
   b0,b1,b2,b3,b4,b5: inteiro
   decimal: real
inicio
   escreva("Informe 0 ou 1")
   escreval
   leia(b0)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b1)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b2)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b3)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b4)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b5)

   decimal<- (b5*2^5) + (b4*2^4) + (b3*2^3) + (b2*2^2) + (b1*2^1) + (b0*2^0)
   
   escreva("Decimal: ",decimal)
fimalgoritmo