(L2) 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 dígito 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 "Binário para Decimal"




var

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

inicio

// Seção de Comandos

escreval("Entre com o número em binário, digitando cada um e apertando enter 6 vezes")

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 é: ",decimal)

fimalgoritmo