Переведите двоичное число в десятичную систему счисления а)  111012 

б) 100102

​

1×2^4+1×2^3+1×2^2+0×2^1+1×2^0 = 16+8+4+0+1=29

1×2^4+0×2^3+0×2^2+1×2^1+0×2^0=16+0+0+2+0=18

Procedure getrv(var r, v: real; var final: boolean); { организует ввод и возвращает значения роста и веса.   значение параметра final=true - сигнал окончить ввод данных,   для чего вводят нули } begin   write('введите рост (см) и вес (кг) -> ');   readln(r, v);   final : = ((r > 0) and (v > 0)) end; function defdesk(r: real): string; begin   if r < = 140 then defdesk : = 's'   else if r < 150 then defdesk : = 'm'   else defdesk : = 'l' end; var   rost, ves: real;   flag: boolean; begin   repeat       getrv(rost, ves, flag);       if flag then writeln('нужна парта типа ', defdesk(rost))   until (not flag) end. тестовое решение: введите рост (см) и вес (кг) -> 135 31 нужна парта типа s введите рост (см) и вес (кг) -> 143 41 нужна парта типа m введите рост (см) и вес (кг) -> 151 48 нужна парта типа l введите рост (см) и вес (кг) -> 0 0