Как записать в виде логического выражения, истинного при выполнении указанного условия и ложного в противном случае: x принадлежит хотя бы одному отрезку [2, 5] и [-1, 1]? a) (x > = 2) and (x < = 5) or (abs(x) < = 1) b) (x < -1) or (x > 1) and (x < 2) or (x > 5) c) (x < -1) and (x > 1) and (x < 2) and (x > 5)

#код на ruby 2.2.3p173 def zadanie(n)       k = 0       for alice in -2)             for basilio in -3)                   for duremar in -3)                         if alice > basilio and alice > duremar and alice + basilio + duremar == n                               k += 1                               p [alice, basilio, duremar]                         end                   end             end       end       return k end # # примеры применения p zadanie(16) вывод : [6, 5, 5] [7, 3, 6] [7, 4, 5] [7, 5, 4] [7, 6, 3] [8, 1, 7] [8, 2, 6] [8, 3, 5] [8, 4, 4] [8, 5, 3] [8, 6, 2] [8, 7, 1] [9, 1, 6] [9, 2, 5] [9, 3, 4] [9, 4, 3] [9, 5, 2] [9, 6, 1] [10, 1, 5] [10, 2, 4] [10, 3, 3] [10, 4, 2] [10, 5, 1] [11, 1, 4] [11, 2, 3] [11, 3, 2] [11, 4, 1] [12, 1, 3] [12, 2, 2] [12, 3, 1] [13, 1, 2] [13, 2, 1] [14, 1, 1] 33 т.е. 33 способа

Var i,s,max,f: integer; a: array[0..20] of integer; begin  s: =0; max: =-100;   for i: =0 to 20 do begin                      a[i]: =random (50);                       write(a[i]: 3);                     end;     for i: =0 to 20 do begin                      s: =s+a[i];                       if a[i]> max then max: =a[i];                     end;   writeln;   writeln('сумма всех элементов = ',s);   writeln('десятый эдлемент = ',a[9]);   writeln('максимальный элемент = ',max); end.