1. Сообщение, записанное буквами 32-символьного алфавита, содержит 140 символов. Какое количество информации оно несёт? 32 байта 40 байтов 140 битов 700 битов 2. Для пяти букв латинского алфавита заданы их двоичные коды (для некоторых букв – из двух битов, для некоторых – из трех битов Эти коды представлены в таблице на прикрепленном изображении Определите, какой набор букв закодирован двоичной строкой 0110100011000. BDCEA EBCEA BDDEA EBAEA 3. Алфавит племени Пульти содержит 8 символов. Каков информационный вес символа этого алфавита? 3 бита 8 бит 2 бита 1 байт

№1

упростим данное выражение:

строим таблицу истинности(см. вложение)

№2

ищем среди данных слов такое, у которого первая буква не является гласной и третья не является согласной, то есть слово, у которого первая буква согласная, а третья - гласная

1) Елена - первая буква гласная - е, не подходит

2) Полина - третья буква согласна л, не подходит

3) Кристина - первая буква - согласная и третья буква - гласная, подходит под данное высказывание

4)Анна - первая буква гласная - а, не подходит

ответ: 3

№3

заменим знаки на более удобные:

v - (+)

& - (*)

Слегка сократим данное выражение:

3) +\overline{(x<5)}*(x\leq 8)=(x>3)+(x\geq 5)*(x\leq 8)=\\=(x>3)+(5\leq x \leq 8)\\F=\left[\begin{array}{cc}x>3\\x\in [5;8]\end{array}\right.=x\in(3;+\infty)" class="latex-formula" id="TexFormula2" src="https://tex.z-dn.net/?f=F%3D%28x%3E3%29%20%2B%5Coverline%7B%28x%3C5%29%7D%2A%28x%5Cleq%208%29%3D%28x%3E3%29%2B%28x%5Cgeq%205%29%2A%28x%5Cleq%208%29%3D%5C%5C%3D%28x%3E3%29%2B%285%5Cleq%20x%20%5Cleq%208%29%5C%5CF%3D%5Cleft%5B%5Cbegin%7Barray%7D%7Bcc%7Dx%3E3%5C%5Cx%5Cin%20%5B5%3B8%5D%5Cend%7Barray%7D%5Cright.%3Dx%5Cin%283%3B%2B%5Cinfty%29" title="F=(x>3) +\overline{(x<5)}*(x\leq 8)=(x>3)+(x\geq 5)*(x\leq 8)=\\=(x>3)+(5\leq x \leq 8)\\F=\left[\begin{array}{cc}x>3\\x\in [5;8]\end{array}\right.=x\in(3;+\infty)">

Теперь проверяем, какие x будут принадлежать или не принадлежать  полученному промежутку.

ответ: выражение истинно при x=4; x=6, а при x=2; x=3 - ложно.

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969