Заранее масса подсолнечного масла плотностью 0,896 кг/дм3, полученного в маслоэкстракционном цехе может изменяться от 5,73 до 6,47 т. для хранения масла имеются две одинаковые кубические емкости с длиной ребра 2000 мм. заливка производится последовательно. вначале наполняется первая емкость на 86% объема, а затем, если масло осталось, остаток заливается во вторую. рассчитать для конкретной партии масла сколько емкостей будет использовано и какова высота слоя масла в них.

PascalABC.NET 3.7:

###RS.AdjacentGroup.SelectMany(x → x.Len >= 3 ? x.Len + x[0] : x.Str).Pr

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы:

Вы можете уменьшить размер файлов и пространство на диске с сжатия рисунков в документе. параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. сжать можно все рисунки в файле или только специально выделенные. если документ сохранен в более старом формате doc, то параметр "уменьшить размер файла" не будет доступен в меню "файл". чтобы использовать параметр "уменьшить размер файла", сохраните документ в новом формате docx.