1. Объем сообщения равен 0,1 Кбайт. Чему равен объем данного сообщения в битах? 2. Текст, набранный на компьютере, состоит из 7 страниц. Каждая страница текста содержит 40 строк. Сколько символов в строке, если весь текст содержит 20 Кбайт информации?
3. В коробке лежат 32 цветных воздушных шара. Сколько
информации несет сообщение о том, что из коробки достали зеленый шар?
4. В авиакомпании «Сибирь» к вылету готовится 6 самолетов «Боинг-747», 8 самолетов ИЛ-86 и 2 самолета ТУ – 154. Чему равен объем сообщения «Следующий рейс выполняется на ИЛ-86»?

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.