Алфавит состоит из 128 букв ,какое количество информации несёт в себе 1 буква

N=128, n=2^i, i=7бит информации несет в себе одна буква

Const   n=2016; var   a: array [1..n] of integer;   i, m, k: integer; begin   for i: =1 to n do       readln(a[i]);   k: =0;   for i: =1 to n do begin       m: =a[i]-516;       if m> =0 then begin           if m mod 8=0 then begin               m: =m div 8;               if (m - m mod 8) mod 8 = 0 then                   if a[i]> k then k: =a[i]               end           end       end;   writeln(k) end. объяснения число 1000₁₀ = 1750₈, а минимальное четырехзначное восьмеричное число - это 1000₈ = 512₁₀. следовательно, искомые числа лежат на интервале [512; 1000] и всегда содержат 1 в старшем разряде своего восьмеричного представления. вычтем из исходного числа 512 и тогда можно рассматривать только трехзначные восьмеричные числа. трехзначное восьмеричное число в расширенной записи имеет вид n=abc₈ = (a×8²+b×8¹+c)₁₀ = 64a+8b+c. по условию с=4, поскольку число должно оканчиваться на 4 в своем восьмеричном представлении. мы получили соотношение n-4 = 64a+8b = 8(8a+b), т.е. n-4 должно быть кратно 8. итак, первый шаг - получить a[i]-516 и если оно не отрицательно, проверить нулевой остаток от деления этой величины на 8. если это так, полагаем m=(a[i]-4) div 8. рассматриваем уравнение m=8a+b. a=(m-b)/8. понятно, что m-b> 0 и a должно быть кратно 8. что и следует проверить. если все так и есть - число подходит и следует обычная проверка алгоритма поиска максимума.