1. Переведите 6 Мбайт информации в бaйты, Кб. 2. Сколькими словами «информатика» можно заменить информацию - id2020100320210315 от PrinceGangsTa 15.03.2021 03:54

Question

Информатика: 1. Переведите 6 Мбайт информации в бaйты, Кб. 2. Сколькими словами «информатика» можно заменить информацию в учеб- нике, составляющую 110 М6? 3. Вычислите, сколько бит, байтов составляют ваше полное имя, фамилия, Отчество. 4. Один Гб информации передается в сети за 512 сек. Определите скорость передачи информации. 5. Книга состоит из 600 страниц, на каждой странице 36 строк по 64 символа. За сколько времени можно передать по сети депую книгу при скорости 64 Кб/с? 8

PrinceGangsTa · Accepted Answer

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
Writeln('Сумма элементов массива: ',
      a.Rows.SelectMany(x->x).Sum)
end.

Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
   39   99   51   44 -28 -85 -52 -98 -56
   68   41    3   34   54 -39 -72   15 -80
   47 -11   35 -50   65   70   58   52   -1
   38   82 -37   93   32   51 -82 -32   98
-72 -12   59   87   44   -4 -14 -56   13
   44   72    1   63   48 -77    4 -28   73

Сумма элементов массива: 691

MOGZ ответил