logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zuldzbeysengaz
zuldzbeysengaz
10.01.2023 13:56 •  Информатика

Скорость передачи данных через adsl-соединение равна 128000 бит/c. какова длительность передачи файла через данное соединение (в секундах), если размер файла 250 кбайт? в ответе укажите одно число – длительность передачи в секундах. единицы измерения писать не нужно.

👇
Увидеть ответ
Ответ:
Vvvpp
Vvvpp
10.01.2023
Время передачи файла будет 16 секунд.
4,7(43 оценок)
Открыть все ответы
Ответ:
Мамиами
Мамиами
10.01.2023
Вот пример вычисления факториала числа 200

const
  n=1000; {максимальное количество цифр в числе}

type
  big=record
    v:array[1..n] of byte; {массив с цифрами числа}
    m:integer {количество цифр в числе}
  end;

function Str2Big(s:string):big;
{Переводит строковое представление в big}
var
  i,n,k,err: integer;
  r:big;
begin
  n:=Length(s);
  r.m:=n;
  for i:=1 to n do
  begin
    Val(s[i],k,err);
    r.v[i]:=k
  end;
  Str2big:=r
end;

function Big2Str(p:big):string;
{Переводит представление big в строковое}
var
  i,n:integer;
  c,s:string;
begin
  s:='';
  n:=p.m;
  for i:=1 to n do
  begin
    Str(p.v[i],c);
    s:=s+c
  end;
  Big2Str:=s
end;

function TruncBig(a:big):big;
{Усекает незначащие нули}
var
  i,p,n:integer;
  r:big;
begin
  n:=a.m;
  p:=0;
  while (p<n) and (a.v[p+1]=0) do p:=p+1;
  for i:=1 to n-p do r.v[i]:=a.v[i+p];
  r.m:=n-p;
  TruncBig:=r
end;

function MultBig(a,b:big):big;
{Возвращает произведение чисел типа big}
var
  i,j,k,m,n,s:integer;
  r:big;
begin
  m:=a.m; n:=b.m;
  for i:=m to m+n do r.v[i]:=0;
  r.m:=m+n;
  for j:=n downto 1 do
  begin
    if b.v[j]=0 then r.v[j+m+n-1]:=0
    else begin
      k:=0;
      for i:=m downto 1 do
      begin
        s :=a.v[i]*b.v[j]+r.v[i + j]+k;
        r.v[i+j]:=s mod 10;
        k:=s div 10
      end;   
      r.v[j] := k
    end
  end;
  MultBig:=TruncBig(r);
end;

var
  i:integer;
  s:string;
  bi,bs:big;
begin
  bs:=Str2Big('1');
  for i:=1 to 200 do begin
    Str(i,s);
    bi:=Str2Big(s);
    bs:=MultBig(bs,bi);
    end;
  s:=Big2Str(bs);
  Writeln(s)
end.

Результат
788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000
4,8(52 оценок)
Ответ:
strongdodu
strongdodu
10.01.2023
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var m:=18;
  var a:=MatrixRandom(m,n,-999,999);
  var imax:=0;
  var jmax:=0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      Write(a[i,j]:5);
      if abs(a[i,j])>abs(a[imax,jmax]) then begin
        imax:=i; jmax:=j
        end
      end;
    Writeln
    end;
  Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
      ']=',a[imax,jmax])
end.

Тестовое решение:
n= 10
 -275  257 -860  744 -263  843    8  667  425 -547
 -392  635  636 -441  -64  973  201 -864 -126 -868
 -764   43 -884 -667 -113  807  354  966 -155 -527
  532 -790 -911    0 -303 -471  453  431 -741 -582
 -121  548 -946  610  724 -426  963 -589 -591  845
 -846  629  728  634 -581  681  141  807 -142  -70
 -510   42 -177  -48  -80 -601  547 -364  862 -593
 -480  770  876 -544  253 -312  -11 -494 -391 -687
  843  -56  558    0 -681  903 -519 -545 -418   15
  387  646 -427  329  928  837 -274  101 -310  325
   27  327 -452 -998  325 -616  752  273 -619  731
 -307 -364  199 -454   86  546  483  823 -367   17
  917   92 -945 -152   19 -126  198 -453 -473  416
  961  888  815  283  286 -483 -604  557  674  935
 -849  207 -926 -149 -677 -248 -552 -972 -756 -617
 -646  -97 -532  673  407  934  272  700  -18 -548
  186  206 -253  -35  769 -196 -179  915  259 -431
  151  926 -851 -302 -134 -289   19  204 -474 -732
Максимум по модулю А[11,4]=-998
4,7(81 оценок)
Это интересно:
И
Как правильно танцевать джайв: основы и советы...
К
5 советов, как правильно хранить мягкое домашнее печенье...
В
Как получать алименты, если больше нет другого выхода...
К
Как приготовить капонату: рецепт и секреты блюда из Сицилии...
С
Как правильно вести себя с созависимым членом семьи: полезные советы и рекомендации...
П
Как безболезненно и эффективно удалить мягкие бородавки у вашей собаки в домашних условиях...
З
Здоровье
29.11.2020
Как похудеть удобным способом?...
З
Здоровье
07.07.2020
Как купить тест на беременность: руководство для будущих мам...
К
Как легко и удобно пользоваться Apple TV...
О
Как сделать так, чтобы лед долго не таял...
Новые ответы от MOGZ: Информатика
89132508504
89132508504
12.11.2020
Заполнить массив из 10 элементов целыми числами дел. на 3 без остатка...
Kirilladmitrievna
Kirilladmitrievna
10.05.2020
Вряду из десяти клеток правее робота некоторые клетки закрашены.составьте алгоритм, который закрашивает клетки: а) ниже каждой закрашенной клетки.б) выше и ниже...
viknik1980p05vqg
viknik1980p05vqg
08.03.2022
Дз по . stimmt, das buch wird dann von dem illustrator illustriert- нужно из этого сделать простое время ja, das buch wird dann gedruckt- из этого сложное пред...
MrHleb
MrHleb
11.10.2020
Составьте таблицу истины для всех выражений...
kunakovdp06u5r
kunakovdp06u5r
30.04.2022
Соедини предложенные четыре фрагмента так , чтобы получить ip-адрес 153.96 , 5.2 , 47. , 23...
DXDynamic31
DXDynamic31
04.07.2020
Составьте программу,которая выводит таблицу строчных латинских букв и их кодов (по 2 строке)...
smusylolo
smusylolo
11.01.2020
построить график функции y=cos x. значение аргумента х выбрать в пределах от -4до 4 с шагом 0,5...
Sashabolsun04
Sashabolsun04
30.09.2022
Замени восьмеричную цифру 7 тремя двоичными цифрами (триадой)! максимальынй...
glo2
glo2
24.02.2022
29. какое наибольшее количество файлов с именем nil и различными расширениями име- ни можно создать в одной обычной папке windows (версия 7 и выше)? а) ни одного....
ЧеловекАнанас
Какие языки в настоящее время являются самыми распространёнными в мире? приготовить сообщение...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ