На магнитофоне 16 клавиш. сколько различных сигналов можно подать магнитофону, нажимая клавиши? сколько бит будет содержать один такой сигнал?

Askill-a talent to match - to connect to correct-to make right to like - to prefer worldwide-international to improve-to make better an opinion - a point of view

Один сигнал будет 4бита

Var a, c, d: integer; b:array[1..10] of integer;
Begin
     For a:= 1 to 10 do
          b[a]:= random(10); // Заполнил массив случайными числами
     For a:= 1 to 10 do
     Begin
          While c <> 8 do
          Begin
               c:= c+1;
               if b[a] > b[a+c]
               Then Begin
                    d:= b[a];
                    b[a] = b[a+c];
                    b[a+c] = d
               End;
               WriteLn(b[a]);
          End;
     End;
End.
Как-то так.

1.Program arrays;const n = 15;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do a[i]:= random(-20, 20);  for i:=1 to n do  begin    if a[i] mod 2 = 0 then      a[i]:=sqr(a[i]);  end;  for i:= 1 to n do write(a[i], );end.2.Program arrayss;const n = 10;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do read(a[i]);  swap(a[1], a[10]);  for i:= 1 to n do write(a[i], );end.

01     ,       01111011
ну вот и все боже мой как такое не знать