¬P∨Q∨R истинно тогда, когда x∈(– ∞,15);(25,∞). Выражение ¬A должно быть истинно на интервале [15;25]. Поскольку все выражение должно быть истинно для ЛЮБОГО x, следовательно, выражение A должно быть истинно на промежутке, не включающем отрезок [15;25].
Из всех отрезков только отрезок [35;40] удовлетворяет этому условию.
ответ: [35;40]
Объяснение:
Логическое ИЛИ истинно, если истинно хотя бы одно утверждение.
Введем обозначения:
(x ∈А) ≡ A; (x ∈ P) ≡ P; (x ∈ Q) ≡ Q; (x ∈ R) ≡ R.
Применив преобразование импликации, получаем:
¬P∨Q∨¬A∨R
¬P∨Q∨R истинно тогда, когда x∈(– ∞,15);(25,∞). Выражение ¬A должно быть истинно на интервале [15;25]. Поскольку все выражение должно быть истинно для ЛЮБОГО x, следовательно, выражение A должно быть истинно на промежутке, не включающем отрезок [15;25].
Из всех отрезков только отрезок [35;40] удовлетворяет этому условию.
const
n = 25;
var
a: array[1..n] of integer;
k0, k, i, s: integer;
p: real;
begin
s := 0;
p := 1;
k := 0;
k0 := 0;
for i := 1 to n do
begin
a[i] := -n div 2 + random(n);
Write(a[i]:4);
if a[i] = 0 then
inc(k0);
if a[i] > 0 then
s := s + a[i];
if a[i] < 0 then
begin
p := p * a[i];
inc(k);
end;
end;
WriteLn;
Writeln('Сумма: ', s);
Writeln('Количество 0: ', k0);
if k <> 0 then
Writeln('Произведение: ', p)
else
Writeln('Нет таких чисел. ')
end.
Объяснение: