Умоляю, с !

1

в кодировке utf-32 каждый символ кодируется 32 битами. коля написал текст (в нём нет лишних пробелов):

«эри, айыр, гурон, восток, онтарио, виннипег — озёра».

найдите информационный вес сообщения.

2

в одной из кодировок unicode каждый символ кодируется 16 битами. петя написал текст (в нём нет лишних пробелов):

ель, кедр, сосна, кипарис, лиственница, можжевельник — хвойные растения

найдите информационный вес сообщения.

3

некоторый алфавит состоит из 16 букв. какое количество информации несет одна буква этого алфавита?

4

информационный объем одного символа равен 8 битам. сколько символов входит в алфавит?

5

определите объем сообщения, состоящего из 120 символов, если вес одного символа 4 бита.

6

сообщение, записанное буквами 128-х символьного алфавита, содержит 10 символов. какой информационный объем оно несет?

, с полным решением! (i, i, k, и др.)​

1) 256 цветов, значит 1 пикс - 8 бит = 1 байт

2400/1=2400 пикс.

2) 4 цветов, значит 1 пикс - 2 бит

64*128=8192 пикс.

8192*2=16384

16 цветов, значит 1 пикс - 4 бит

32*32= 1024 пикс.

1024*4=4096

 3) 640*480=307200 пикс.

307200*3=921600 байт.

28 800 бит/c = 3600 байт/c

921600/3600=256 с.  

4) 16 цветов, значит 1 пикс = 4 бит

50*40=2000 пикс.

2000*4=8000 бит.

8000*5=40000 бит/c = 5000 байт/c  

5) сканер 

видеокамера 

фотоаппарат 

графический

планшет 

6) Переведем разрешающую сканера из точек на дюйм (1 дюйм = 2,54 см) в точки на сантиметр: 

600/2,54 = 236 точек/см.    

значит размер изображения, 472х708 см.

472*708=334176

334176*8=326 Кбайт

7)  тоже самое как в только умножить на 2.

326*2=652 Кбайт

8)тоже самое как в поза только умножить на 2,5.

326*2=815 Кбайт

1.

var

  T, C : array [1..25] of real;

  sumT, sumC : real;

  i : integer;

begin

  for i := 1 to 25 do read (T[i]);

  for i := 1 to 25 do read (C[i]);

  sumT := 0; sumC := 0;

  for i := 1 to 25 do

  begin

    sumT := sumT + T[i];

    sumC := sumC + C[i];

  end;

  writeln ('Средний вес = ', sumT / 25);

  writeln ('Средний рост = ', sumC / 25);

end.

2. 

const

  maxn = 1000;

var

  a : array [1..maxn] of integer;

  n, i : integer;

begin

  read (n); //Если n дано

//Если n не дано, нужно читать до конца строки

 //while not eoln do begin n := n + 1; read (a[n])} end;

  for i := 1 to n do read (a[i]); //Если n дано

  for i := n downto 1 do

    if i mod 2 = 1 then write (a[i], ' ');

end.

Тесты: а) 8 5 1 б) 9 8 4 6 1