З 1
На числовой прямой даны два отрезка: P = [20, 50] и Q = [10, 60]. Выберите такой отрезок A, что формула
( (x ∈ P) → (x ∈ А) ) /\ ( (x ∈ A) → (x ∈ Q) )
тождественно истинна, то есть принимает значение 1 при любом значении переменной х. Если таких отрезков несколько, укажите тот, который имеет большую длину.
1) [5, 40] 2) [15, 54] 3) [30,58] 4) [5, 70]

К заданию добавьте решение

1. Реакция компьютера на обыденные действия отличается от обычной, например, вместо открытия корневой папки флешки открывается папка, которая содержит ссылку на флешку (реальная история - доводилось повидать вирус, который создает на флешке ссылку на саму себя).
2. Возникают различные сообщения об ошибках, которых раньше не было и которым нет явной причины.
3. Вся система блокируется с сообщением вроде "отправьте СМС на такой-то номер и введите полученный код в течение 24 часов, или система будет стерта".

Программа вставляет перед элементом, кратным 5, элемент со значением 99 (чтобы его было видно среди прочих из диапазона [1..50] )

const
  nm = 20;

var
  i, j, n, nn: integer;
  a: array[1..nm] of integer;

begin
  n := nm div 2;
  nn := n;
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    a[i] := Random(50) + 1;  { [1..50] }
    Write(a[i]:3)
  end;
  for i := n downto 1 do
  begin
    if a[i] mod 5 = 0 then begin
      nn := nn + 1;
      for j := nn downto i do a[j] := a[j - 1];
      a[i] := 99
    end
  end;
  Writeln(#13#10, '*** Массив-результат ***');
  for i := 1 to nn do Write(a[i]:3);
  Writeln
end.

*** Исходный массив ***
 23 22 27 16 45 42 15 13 27 31
*** Массив-результат ***
 23 22 27 16 99 45 42 99 15 13 27 31