Алфавит некоторого языка состоит из 20 символов. какое количество информации в байтах будет содержать сообщение длиной в 160 символов?

Один байт - по сути выражение одного символа. тогда и сообщение должно быть объемом 160 байт.  однако, если использовать общепринятый объем байта (8 бит) с условием отображения в одном байте нескольких символов, тогда:   будет весить 160/8=20байт

Const n=3; m=4; var  a: array[1..n,1..m] of integer; b: array[1..n*m] of integer; i,j,k: integer; sr: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; sr: =0; for i: =1 to n do   for j: =1 to m do sr: =sr+a[i,j]; sr: =sr/(n*m); writeln('sr = ',sr); k: =0; for i: =1 to n do   for j: =1 to m do   if a[i,j]< sr then begin k: =k+1; b[k]: =a[i,j]; end; writeln('полученный массив: '); for i: =1 to k do write(b[i]: 4);   writeln; end. пример: исходный массив:   72   51   6   83   51   68   61   25   22   57   76   79 sr = 54.25 полученный массив:   51   6   51   25   22

Суть в том, что переводишь число в строковый формат и далее работаешь с ним как с одномерным массивом (чем и является по сути строка). во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. если нашлась, то выход из цикла. из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр. program z1; var n: int64; l: integer; s: string; i, j: byte; x: boolean; begin     writeln ('введите число');     readln (n);     str(n,s);     l: =length(s);     x: =false;       for   i: =1 to l-1 do begin         for   j: =i+1 to l do begin           if s[i]=s[j] then begin x: =true; break; end;         end;       if x=true then break;       end;     writeln (x);   end.