Скорость передачи данных по некоторому каналу связи равна 128 000 бит/с. Передача данных через это соединение заняла 2 минуты 8 секунд. Определите информационный объём переданных данных в килобайтах

Скорость измеряется отношением объёма к секундам, поэтому переведём заданное время в секунды:

2 минуты = 120 секунд.

В секунду передаётся 256000 бит в секунду. Переведём эту величину в килобайты:

256000 бит = 256000 / 8 байт = 256000 / 8 / 1024 килобайт = 31.25 килобайта в секунду.

Умножим эту величину на заданное задачей время - это будет ответом:

31.25 * 120 = 3750 килобайт.

Объяснение:

А) Объёмы тождественных понятий совпадают. Иначе, из тождественных понятий мы получаем одно и то же знание фиксированного объёма
Пример: "Столица России" тождественно "Город Москва".
Б) Объемы пересекающихся понятий совпадают частично, т.е. у них есть некая общая часть. Пример: "Школьные предметы" и "Информатика". Информатика - один из школьных предметов, но также информатика - предмет, включающий материал, который в школах не изучается.
В) Если объем одного понятия полностью содержится в объеме другого, то первое понятие называется подчиненным второму, подчиняющему понятию.
Например, в отношении понятий "Река" и "Волга", подчиняющим будет "Река", а подчиненным - "Волга", как одна из рек.
Г) Соподчиненными называются два понятия, исключающие друг-друга и подчиненные одноми и тому же подчиняющему понятию. Например: "Математика" и "Русский язык" являются соподчиненными понятию ""Школьный предмет".

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.