Exercício 2-16

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 dígito 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.
Por exemplo 110101 é 53 .(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Conversão de Binário para Decimal"

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

inicio
escreva("Entre com o 1ºBit (0 ou 1)")
escreval
leia(n1)
escreva("Entre com o 2ºBit (0 ou 1)")
escreval
leia(n2)
escreva("Entre com o 3ºBit (0 ou 1)")
escreval
leia(n3)
escreva("IEntre com o 4ºBit (0 ou 1)")
escreval
leia(n4)
escreva("Entre com o 5ºBit (0 ou 1)")
escreval
leia(n5)
escreva("Entre com o 6ºBit (0 ou 1)")
escreval
leia(n6)
decimal <- (n1*32 + n2*16 + n3*8 + n4*4 + n5*2 + n6*1)
escreva("Decimal: ",decimal)

fimalgoritmo