<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
if a.Rows.SelectMany(x->x).Sum mod 21=0 then
Writeln('Сумма элементов одновременно делится на 3 и на 7')
else
Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.
<u>Примеры</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
73 -53 69 -94 -38 50 30
-9 63 54 28 -56 68 21
-97 18 -80 68 86 -27 -3
33 -30 -17 6 -69 -95 -81
----------------------------
Сумма элементов одновременно не делится на 3 и на 7
Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
-53 14 50 52
-81 55 14 -89
99 -53 37 96
73 27 -8 -85
0 -8 46 50
----------------
Сумма элементов одновременно не делится на 3 и на 7
1) Фраза "Лень делает всякое дело трудным" содержит 31 символ; <span>объем высказывания = 31*8 = 248 бит
2) </span>Строка "И трижды тот вооружен, кто прав!" содержит 32 символа; объем строки = 32*16 бит = 32*16 / 8 байт = 64 байта
3) 0,5 Кбайт = 0,5*1024 байт = 0,5*1024*8 бит
Количество символов в сообщении = 0,5*1024*8 / 8 = 512
4) Объем текста = <span>60*25*5*8 бит = 60*25*5*8 / 8 байт = 7500 байт
5) Объем рассказа = </span><span>4*48*64*8 бит = 4*48*64*8 / (8*1024) Кбайт = 12 Кбайт
6) Объем статьи = </span><span>12*64*64*16 бит = 12*64*64*16 / (8*1024) Кбайт = 96 Кбайт
7) Объем сообщения = 30*1 байт = 30*8 бит = 240 бит
8) Объем реферата = (12*</span>48*64 + 12*24*32)*2 байт = (12*48*64 + 12*24*32)*2 / 1024 Кбайт = 90 Кбайт
9) 24 Кбайт = 24*1024*8 бит. Для кодирования каждого символа используется 24*1024*8 / (8*40*64) = 9,6 ≈ 9 бит (а может быть и 8 бит).
10) 30 Кбайт = 30*1024*8 бит. Количество страниц = 30*1024*8 / (20*48*16) = 16
<span>Компьютер - это электронное устройство, предназначенное для </span>работы с информацией
F:/DOCUM/LENA/letter.doc
F:/DOCUM/LENA/Tables.xls
F:/DOCUM/IVAN/my.doc
F:/ARCHIV/MAIN/letter.doc
F:/ARCHIV/MAIN/my.doc
F:/ARCHIV/1.zip