Program algorithm; uses crt; var s,sbox: string; i,step,dva,n,l,delo: integer; begin writeln('введите двоичное число: '); read(dva); s: =inttostr(dva); l: =length(s); for i: =1 to l do begin dva: =strtoint(s[i]); step: =l-i; if dva> 0 then begin for n: =1 to step do dva: =dva*2; delo: =delo+dva; end; end; writeln('десятичное число: ',delo); end.
