[матроскин шифровальщик] матроскин купил большое количество непрозрачных бидонов, чтобы возить на рынок молочные продукты. матроскину нужно знать, какой именно продукт находиться в бидоне, и за сколько дней до поездки он заполнен. у матроскина есть набор карточек, на каждой из которых нанесен один из n символов. в наборе есть много карточек с каждым из n символов, а на крышке бидона есть два кармашка, в каждый из которых можно поместить одну карточку. матроскину определить минимальное количество различных символов – n, которые ему понадобятся для обозначения бидонов, если известно, что на рынок он ездит один раз в две недели, возит бидоны, заполненные продуктами только в промежуток времени с последней поездки, а продает молоко, сметану, сливки, простоквашу, кефир, творог и масло. в ответе запишите целое число.

14 дней + 6 видов продуктов = 22 символа вообще беспалевно

Const   m1 = 10;   n1 = 8; var   x: array[1..m1, 1..n1] of integer;   i, j, m, n, t: integer; begin   write('введите через пробел число строк и столбцов матрицы: ');   read(m,n);   randomize;   writeln('исходная матрица');   for i: = 1 to m do begin       for j: =1 to n do begin           x[i,j]: = random(50)+1;           write(x[i,j]: 3)       end;       writeln   end;   { простая обменная сортировка первого столбца }   for i: =1 to m-1 do       for j: =1 to m-1 do           if x[j,1]> x[j+1,1] then           begin t: =x[j,1]; x[j,1]: =x[j+1,1]; x[j+1,1]: =t end;   writeln('результирующая матрица');   for i: = 1 to m do begin       for j: =1 to n do write(x[i,j]: 3);       writeln   end end. тестовое решение: введите через пробел число строк и столбцов матрицы: 10 8 исходная матрица   44 28 35 45 28 21 24 31   39 10  1 27 33  3  7 39   22  8 45  4 33 11 23 37   18 50 48 12 45 28  1 32   3 25 45 11 40 49 47 17   28 16 46 43 11 13 22 18   27 24 45 33 44 44 34 34   6 49 27 28 24 13 37 12   9 19 25  8  8 47 49 24   11 29 26 18 16 30 27  6 результирующая матрица   3 28 35 45 28 21 24 31   6 10  1 27 33  3  7 39   9  8 45  4 33 11 23 37   11 50 48 12 45 28  1 32   18 25 45 11 40 49 47 17   22 16 46 43 11 13 22 18   27 24 45 33 44 44 34 34   28 49 27 28 24 13 37 12   39 19 25  8  8 47 49 24   44 29 26 18 16 30 27  6

Const   n=20; var   a: array[1..n] of integer;   i,j,k,x: integer; begin   randomize;   writeln('исходная последовательность');   for i: =1 to n do begin a[i]: =random(50)+1; write(a[i]: 3) end;   writeln;   for i: =1 to n-1 do begin       k: =i; x: =a[i];       for j: =i+1 to n do           if a[j]< x then begin k: =j; x: =a[j] end;       a[k]: =a[i]; a[i]: =x   end;   writeln('после сортировки');   for i: =1 to 20 do begin write(a[i]: 3) end;   writeln end. тестовое решение: исходная последовательность   6 37 19 32 34 48 28  8 15 50 25 37 14 12 28 10 15 40 29 10 после сортировки   6  8 10 10 12 14 15 15 19 25 28 28 29 32 34 37 37 40 48 50