Лучшие Ответы

• 

  пстрвчлвяряу

  06.06.2020

  4,7(28 оценок)

  1 байт - 8 бит

  х байт - 1024000 бит

   

  х = 1024000/8 = 128000 байт/с (скорость передачи данных)

   

  128000*5 = 640000 байт весит файл

   

  1 килобайт = 1024 байт

   

  640000/1024 = 625 Кбайт весит файл

• 

  natali2613

  16.10.2020

  4,7(88 оценок)

  (t - время передачи, I - объем данных, v - скорость передачи)

  Дано:

  t = 5 c

  v = 1024 бит/с

  I - ?

  бит

  5120.0 бит = 640.0 байт = 0.625 Кбайт

• Открыть все ответы
• 

  Mushvi

  18.06.2021

  4,7(93 оценок)

  procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real); // var в параметрах означает, что переменная используется для возврата значения

  var

  i, c: Integer;

  begin

  S := 0;

  c := 0;

  for i := 0 to High (Ax) do begin

  S := S + Ax [i]; // здесь накапливаем сумму элементов

  c := c + 1;

  end;

  M := S / c; // когда найдена сумму, рассчитываем среднеарифметическое

  end;

  var

  A: array [0..4] of Integer; // размерность массивов можно делать любой, но начинаться с 0

  B: array [0..14] of Integer;

  C: array [0..9] of Integer;

  i, s: Integer;

  m: Real;

  begin

  SetConsoleCP (1251);

  SetConsoleOutputCP (1251);

  Randomize; // инициализация датчика случайных чисел

  WriteLn ('Массив 1:');

  for i := Low (A) to High (A) do begin

  A [i] := Random (10); // заполняем элементы массива случайными значениями

  Write (IntToStr (A [i]) + ' '); // выводим их для просмотра

  end;

  CalcArray (A, s, m); // вызов процедуры

  WriteLn; // показываем возвращаемые из функции переменные

  WriteLn ('Сумма элементов = ' + IntToStr (s));

  WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

  WriteLn; // аналогично поступаем с другими массивами

  WriteLn ('Массив 2:');

  for i := Low (B) to High (B) do begin

  B [i] := Random (10);

  Write (IntToStr (B [i]) + ' ');

  end;

  CalcArray (B, s, m);

  WriteLn;

  WriteLn ('Сумма элементов = ' + IntToStr (s));

  WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

  WriteLn;

  WriteLn ('Массив 3:');

  for i := Low (C) to High (C) do begin

  C [i] := Random (10);

  Write (IntToStr (C [i]) + ' ');

  end;

  CalcArray (C, s, m);

  WriteLn;

  WriteLn ('Сумма элементов = ' + IntToStr (s));

  WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

  end.

• 

  tatleb

  18.06.2021

  4,4(77 оценок)

  procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real);  // var в параметрах означает, что переменная используется для возврата значения

  var

   i, c: Integer;

  begin

   S := 0;

   c := 0;

   for i := 0 to High (Ax) do begin

     S := S + Ax [i];   // здесь накапливаем сумму элементов

     c := c + 1;

   end;

   M := S / c;   // когда найдена сумму, рассчитываем среднеарифметическое

  end;

  var

   A: array [0..4] of Integer;     // размерность массивов можно делать любой, но начинаться с 0

   B: array [0..14] of Integer;

   C: array [0..9] of Integer;

   i, s: Integer;

   m: Real;

  begin

   SetConsoleCP (1251);

   SetConsoleOutputCP (1251);

   Randomize;   // инициализация датчика случайных чисел

   WriteLn ('Массив 1:');

   for i := Low (A) to High (A) do begin

     A [i] := Random (10);   // заполняем элементы массива случайными значениями

     Write (IntToStr (A [i]) + ' ');   // выводим их для вызов процедуры

   WriteLn;   // показываем возвращаемые из функции переменные

   WriteLn ('Сумма элементов = ' + IntToStr (s));

   WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

   WriteLn;   // аналогично поступаем с другими массивами

   WriteLn ('Массив 2:');

   for i := Low (B) to High (B) do begin

     B [i] := Random (10);

     Write (IntToStr (B [i]) + ' ');

   end;

   CalcArray (B, s, m);

   WriteLn;

   WriteLn ('Сумма элементов = ' + IntToStr (s));

   WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

   WriteLn;

   WriteLn ('Массив 3:');

   for i := Low (C) to High (C) do begin

     C [i] := Random (10);

     Write (IntToStr (C [i]) + ' ');

   end;

   CalcArray (C, s, m);

   WriteLn;

   WriteLn ('Сумма элементов = ' + IntToStr (s));

   WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

  end.