1.переведите в десятичную систему следующие двоичные числа: 101, 11101, 101010, 100011, 10110111011. 2. переведите в двоичную систему счисления следующие десятичные числа: 2, 7, 17, 68, 315, 765, 2047

Из 2 в 10: 101 = 511101 = 29101010 = 42100011 = 3510110111011 = 1467 из 10 в 2: 2=   107 = 11117 =  1000168 =  1000100315 =  100111011765 =  1011111101 2047 =  11111111111

2000 Байтов.

Объяснение:

В алфавите 16 букв. Зная это информацию, мы можем воспользоватся формулой Хартли - N = 2^i, где N - мощность алфавита, а i - вес одного символа. 16 = 2^4. В задаче говорится, что все слова этого языка состоят из 5 букв. Выполнив обычные умножение, мы можем узнать вес одного слова в битах. 5 * 4 = 20 бит - вес одного слова. Далее просто вес одного слова умножим на их количество. 20 * 8000 = 160000. Нас просят  выразить информацию в Байтах, поэтому получившееся число разделим на 8, т.к. в одном Байте восемь бит информации. 160000 : 8 = 20000 Байтов - вес всех слов, составленных из букв алфавита.

Program filework; var f: text;       i, n, count: integer;       l: string;       arr: array of real;       answ: real; begin   assign(f, 'c: \users\ho4hou_ttapkupuct\desktop\test_file.txt'); // в кавычках путь к файлу   reset(f);   while not eof(f) do begin       readln(f, l);       if strtofloat(l) > 0 then       inc(count);   end;   setlength(arr, count);   reset(f);   i: =0;   while not eof(f) do begin       readln(f, l);       if strtofloat(l) > 0 then begin           arr[i]: =strtofloat(l);           inc(i);         end;   end;   answ: =arr[0];   for i: =1 to arr.length - 1 do   if arr[i] < answ then answ: =arr[i];   writeln(answ);   close(f); end. p.s. программа работает с неограниченным числом положительных чисел в файле