Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. например, дано число в двоичной системе счисления: 1101 внизу 2. перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13.сделать на паскале прошу, прям надо. могу фоточку кинуть, я девочка.​

Пе­ре­ве­дем числа в де­ся­тич­ную си­сте­му счис­ле­ния: a416 + 208 = 10·16+4 + 2·8 = 164 + 16 = 18010. пе­ре­ве­дем по­лу­чен­ное число в дво­ич­ную си­сте­му счис­ле­ния: 18010 = 1⋅27 + 0⋅26 + 1⋅25 + 1⋅24 + 0⋅23 + 1⋅22 + 0⋅2 + 0 = 101101002. срав­ним его с дан­ны­ми нам в усло­вии дво­ич­ны­ми чис­ла­ми: 10001011 — мень­ше, чем 10110100; 10111000 — боль­ше, чем 10110100; 10011011 — мень­ше, чем 10110100; 10110100 — сов­па­да­ет с 10110100. таким об­ра­зом, имеем одно число, боль­шее, чем a416+208

Var   s1,s2: real;   y: integer; begin   write('введите площади под рожь и пшеницу: ');   read(s1,s2);   y: =0;   while s1> =0.5*s2 do begin       s1: =1.25*s1;       s2: =1.5*s2;       inc(y)       end;   writeln('количество лет, через которые площадь под рожь');   writeln('станет вдвое меньше, чем под пшеницу, равно ',y) end. пример решения введите площади под рожь и пшеницу: 1520 940 количество лет, через которые площадь под рожь станет вдвое меньше, чем под пшеницу, равно 7