Дайте определение сложного логического выражения 1с

1 вариант

номер 1

Саша- Самойлов
Володя- Левин
Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа)
Юра- Богачёв

номер 2

переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание)
(получилось и у той и у другой мёда по 3 литра)
Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание)
последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)

почему-то решилось за 3 переливания

номер 3

2,4,8,10,20,22,44,46...

Прибавление 2, умножение на 2, прибавление 2 и так далее

3,6,12,15,30, 33...

Прибавление 3, умножение на 2, прибавление 3 и т.д

1,3,4,12,13, 39, 40, 120, 121...

Умножение на 3, прибавление 1, умножение на 3 и т.д

Второй вариант решается аналогично

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println;
  (var k,var s):=(0,0);
  for var i:=1 to m.Length-2 do
    if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]);
  Writeln('Свойство А: кол-во=',k,', сумма=',s);
  var mb:=m.Where(x->x<0).ToArray;
  Write('Свойство Б: '); mb.Println;
  var z:=ReadInteger('Z1=');
  var mmin:=m.Min;
  m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println;
  m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println;
  var p,q:integer; Write('Введите P Q: '); Read(p,q);
  m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray;
  Writeln('Свойство Г:'); m.Println;
  z:=ReadInteger('Z2=');
  p:=m.FindIndex(x->x>=z);
  if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray;
  Writeln('После попытки вставки:'); m.Println
end.

Пример
n= 17
3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7
Свойство А: кол-во=6, сумма=-72
Свойство Б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7
Z1= -33
Свойство B:
3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7
Упорядоченность по неубыванию:
-33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12
Введите P Q: 3 7
Свойство Г:
-13 -5 -5 5 8 8 11
Z2= 0
После попытки вставки:
-13 -5 -5 0 5 8 8 11