2) 2 Мбайт, 200 Кбайт, 1 Мбайт, 1000 Кбайт.
2 Мбайта ▬ 2048 Кбайт., 1 Мбайт ▬ 1024 Кбайт.
Полностью наполнить флакон(5) , затем перелить из него в флакон(7)(7-5=2-на столько капель останется места). Затем снова наполнить флакон(5) и из него до конца наполнить флакон(7). 5-2=3 капли останется в флаконе(5)
1.подмножество;2.множество;3.Пересечение;4.схема;5.объединение;6.эйлер;7.отношения;8.объект.
<em>// PascalABC.NET 3.2, сборка 1416 от 26.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
var k:=ReadInteger('Значение k (от 0 до '+(m-1)+'):');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.ElementsByRow.Where(x->x mod m=k).Println
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 7
Значение k (от 0 до 6): 1
*** Исходный массив [4,7] ***
-76 -31 10 -56 -89 43 71
-96 -9 -26 19 -57 -90 -37
43 -97 -32 -76 48 -17 -28
-27 -27 -24 -68 -16 -13 54
----------------------------
43 71 43
Var
i,s:integer;
begin
s:=0;
for i:=1 to 99 do s:=s+i;
Writeln('S=',s)
end.
var
i:integer;
p:longint;
begin
p:=1;
for i:=1 to 10 do p:=p*i;
Writeln('P=',p)
end.