//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.
Из комплекса программ, определяющих на компьютере системную среду и правила работы в ней
Исходник и пример работы в приложении.
4 функции (для каждой неизвестной) описаны в главной программе main, следовательно такая конструкция подходит "на 5" по вашему набору оценок.
1. Выпишем номера арбузов, которые легче в каждом из указанных взвешиваний: 2, 3, 4, 5 и будем рассматривать только арбузы с полученными номерами.
2. Арбуз 5 легче арбуза 4, поэтому 4 вычеркиваем: 2, 3, 5
3. Арбуз 4 легче арбуза 3, поэтому 3 вычеркиваем: 2, 5
4. Арбуз 2 легче арбуза 5, поэтому 5 вычеркиваем: 2
Арбуз 2 самый легкий.
1) 5 Кбайт= 5*1024 *8 бит= 40 960 бит
2) 40 960 : 10 240 = 4 бита ~ 1 символ
2) 2^4=16 символов в алфавите ( или - мощность алфавита)
ответ 16