1. для записи текста использовался 128-символьный алфавит. какой объем информации в байтах содержит 11 страниц текста, если на каждой странице расположено 32 строки по 64 символа 2. расположите величины в порядке возрастания 3 байта, 3 килобайта, 16 битов, 3070 байт, 25 битов 3. некоторый алфавит содержит 512 символов. сообщение состоит из 48 символов.определите информационный объем сообзения

Решение: Для начала необходимо узнать, сколько бит требуется для кодирования 1 символа; Затем узнаем сколько всего символов в тексте; Ну а после этого узнаем каков объем информации N=128 = 2⁷ i= 7 бит требуется для кодирования 1 символа К = 11*32*64 = 22528 символов в тексте V = i*k = 7*22528 = 157696 бит = 19712 байт ответ: 19712 байт (иногда еще спрашивают сколько Кб, тогда ответ необходимо разделить на 1024)

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Матрица A ***');
  var a:=MatrRandom(m,n,10,99); a.Println(3);
  var b:=new integer[m,n];
  var c:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do
      (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
  Writeln('*** Матрица  B ***'); b.Println(3);  
  Writeln('*** Матрица  C ***'); c.Println(3);
  Writeln(3*n*'-');
  Writeln('Количество нулевых элементов в С: ',
    c.ElementsByRow.Where(t->t=0).Count);
  var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
  Writeln('Сумма всех элементов матрицы B: ',sb);
  Writeln('Сумма всех элементов матрицы C: ',sc);
  if sb>sc then Writeln('Сумма элементов матрицы B больше')
  else
    if sc>sb then Writeln('Сумма элементов матрицы C больше')
    else Writeln('Суммы элементов матриц B и С равны')
end.

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз