Лови фото. на нем второй пример объясняет как переводить из двоичной в десятичную
<span>Находим количество символов в 2 мегабайтах при 16 битной кодировке. (2*(2^10)*(2^10)*(2^3)/16=524288=2^19 символов.</span>
Для лёгкости передачи и воспринимания информации
В поисковике забей открой с 1 по 3 сайт
Uses Crt;
var N, p,i : integer;
begin
ClrScr;
Write(' N= '); ReadLn(N);
if N<=30 then
if N=0 then Writeln('2^0 = 1')
else
begin
p:=1;
for i:=1 to N do
P:=2*P;
end;
Writeln(' 2^', n,' =',P );
ReadLn;
end.