Статья, набранная на компьютере, содержит 10 страниц, на каждой странице 32 строки, на каждой строке 56 символов. определите информационный объём статьи в одной из кодировок unicode, в которой каждый символ кодируется 2 битами.

i (информ. вес символа) = 2 бита

k (кол-во символов в тексте) = 10*32*56 =  17920

x (информ. объем текста) = k*i = 17920*2 = 35840 бит

1 первым здоровается тот, кто входит в помещение. при знакомстве и представлении будет уместна корректная, сдержанная улыбка. если людей представляет кто-то третий, знакомство идет по очереди.

2крайне некультурно говорить о третьем лице, используя безымянные местоимения или обобщающие наименования - «он», «она», «женщина», «мужчина», «человек», «эй».

3при встрече со знакомыми и даже малознакомыми людьми принято доброжелательно здороваться, невнятное бурчание под нос воспринимается хуже, чем отсутствие .

4   вступать в спор по пустякам, высмеивать чужое мнение и сыпать оскорбительными остротами и колкостями в адрес других - признаки дурного тона.

5   входя в помещение, мужчина должен снять головной убор, женщина может оставаться в шляпе. не принято входить без стука, с незатушенной сигаретой. мужчина всегда пропускает женщину вперед. в этом правиле есть исключения - первым из лифта, машины, других транспортных средств выходит мужчина и подаёт женщине руку, даже незнакомой.

var  i: integer;   a: array [1..15] of integer;

begin  write('исходный массив: ');   for i: = 1 to 15 do //формируем и распечатываем массив  begin    a[i]: = random(8);       write(a[i],' ');   end;   writeln; //перевод на новую строку  write('преобразованный массив: ');   for i: = 1 to 15 do  begin    if a[i] mod 2 = 0 then a[i]: = a[i] + 1 {если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}    else a[i]: = a[i] * 2;     write(a[i], ' ');   end;   writeln; {перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}end.

отметь решение, как лучшее )