У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество колонок в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-9,9); a.Println(3); Writeln(3*a.ColCount*'-'); Write('Колонок, где все элементы различны, ', a.Cols.Where(c->c.Distinct.Count=m).Count); end.
