<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.
В таком случае, скорость наполнения бассейна через 2 трубу будет равна:
1 / 24 = 1/24 часть бассейна в час.
Если бассейн одновременно будут наполнять через обе трубы, то скорость наполнения составит:
1 / 8 = 1/ 8 часть бассейна в час.
Определяем скорость наполнения через 1 трубу.
Для этого от совместной скорости отнимаем скорость наполнения только 2 трубы.
Будет:
1/8 - 1/24 = 3/24 - 1/24 = 2/24 = 1/12.
Значит через нее бассейн заполнится за:
1 / 1/12 = 1 * 12/1 = 12 ч.
Ответ:
За 12 часов.
Объяснение:
1 символ кодируется 16 битами.
У нас объём стал меньше на 12 байт, 12 байт = 12 * 8 = 96 бит
96 / 16 = 6 - число вычеркнутых символов. В слове будет 4 буквы, так как всего 6 символов вычеркнули, из них 1 пробел и 1 запятая.
Ответ: Слон
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.