ВЫБРАТЬ ВЕРНУЮ ПОСЛЕДОВАТЕЛЬНОСТЬ

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // начало расчетов
  var s:=0;
  for var i:=0 to n-1 do s+=a[i,n-i-1];
  Writeln('1: S=',s);
  Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
  Write('3: Произведение элементов: ');
  a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
  var p:BigInteger:=1;
  for var i:=0 to n-1 do p*=a[i,i];
  Writeln('4: П=',p);
end.

Объяснение:Решение.

Знаком ~ обозначается операция эквивалентности (результат X ~ Y — истина, если значения X и Y совпадают).

Введем обозначения:

 

(x ∈ P) ≡ P; (x ∈ Q) ≡ Q; (x ∈ A) ≡ A.

 

Тогда, применив преобразование импликации, получаем:

 

¬(P ~ Q) ∨ ¬A ⇔ ¬(P ~ Q) ∨ ¬A = 1.

 

Выражение ¬(P ~ Q) истинно только тогда, когда x ∈ [5; 14) и x ∈ (23; 30] (см. рисунок). В таком случае, для того, чтобы выражение было истинно при любом x, A должно лежать либо в промежутке [5; 14), либо (23; 30]. Следовательно, наибольшая возможная длина промежутка равна 14 − 5 = 9.

 

ответ: 9.

ответ правельный чесное слово нажми