P = [12; 22]; Q = [33; 43]
Импликация ->, которая стоит в скобках, работает так.
Если точка x ∈ P, то должно быть x ∈ Q. Но это не так.
Нет ни одной точки из промежутка Р, который ∈ Q.
Если же точка x ∉ P, то она может ∈ Q, а может ∉ Q.
Поэтому импликация ложна для точек из промежутка Р.
И истинна для всех остальных точек числовой прямой.
Конъюнкция /\, которая стоит за скобками, работает так.
Если оба утверждения истинны, то конъюнкция истинна.
Если хоть одно ложно, то конъюнкция ложна.
Если множество А совпадает с множеством Р = [12, 22],
то для любого х выражение будет ложно.
Потому что для x ∈ A = P = [12; 22] ложна импликация.
А для x ∉ A = P ложно второе утверждение.
В обоих случаях конъюнкция ложна.
Ответ: A = P = [12, 22]; |A| = 10
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Паскаль АВС:
<span>
Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then
Одно из чисел a и b положительно.
</span><span><span>if (a >0) or (b >0) <span>then
</span></span>Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then
Точка A(x,y) принадлежит первому или второму квадранту.
</span><span><span>if (y >0) <span>then
</span></span>Число a не больше среднего арифметического чисел b, c, d.</span>
<span>if (a <= (b+c+d)/3) <span>then</span></span>