Установите соответствие между понятием и характеристикой Понятие: 1) Фрикционные передачи 3) Зубчатые передачи 2) Ременные передачи 4) Червячные передачи Характеристика: А) Возможность получать очень малые передаточные отношения. В) Передача преобразования движения с изменением угловых скоростей и моментов с зубчатого зацепления. С) Передача движения между удаленными друг от друга валами. D) Движения от ведущего звена к ведомому передается силами трения

Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима.  но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую) 

Var
   i,j,t,x:integer;
   a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
   begin
   a[i]:=random(-100,100);
   write(a[i]:5)
   end;
i:=2;
while i<11 do
   begin
   t:=a[i];
   a[i]:=a[i-1];
   a[i-1]:=t;
   i:=i+2
   end;
writeln;
writeln('Переставленный массив:');
for i:=1 to 10 do
   begin
   write(a[i]:5);
   if a[i] mod 2=0 then x:=x+1
   end;
writeln;
writeln('Четных элементов: ',x);
//Гномья сортировка   
i:= 2;   
j:= 3;
while i < 11 do
        if a[i - 1] > a[i] then
            begin
            i:= j;
            j:= j + 1
            end
        else
            begin
            t:= a[i - 1];
            a[i - 1]:= a[i];
            a[i]:=t;
            i:= i - 1;
            if i = 1 then
                begin
                i:= j;
                j:= j + 1
                end
            end;
writeln('Отсортированный массив:');
for i:=1 to 10 do  write(a[i]:5)
end.