program Dwojkowe_na_dziesietne; var j,k,x,suma:integer; var i,n:longint; var tab:array[1..8] of integer; begin write('Podaj liczbe dwojkowa: '); readln(n); i:=10000000; j:=1; suma:=0; while(i>=1) do {przeniesienie liczby do tabeli} begin tab[j]:=(n div i) mod 10; i:=i div 10; j:=j+1; end; x:=1; for k:=j-1 downto 1 do begin suma:=suma+tab[k]*x; x:=x*2; end; writeln; writeln('Przeliczona liczba to ',suma); writeln; readln; end.