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
Примерно так будет выглядеть блок-схема, результат работы программы и сама программа:
Program Age;
uses crt;
var A, M, P, Ma, Pa: integer;
begin
write('Введите Ваш возраст: ');
read(A);
write('Введите возраст мамы: ');
read(M);
write('Введите возраст папы: ');
read(P);
Pa := P - A;
Ma := M - A;
writeln('Возраст мамы, когда Вы родились: ', Ma);
writeln('Возраст папы, когда Вы родились: ', Pa);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
В D1 пиши: $A1+B$1+C$1 в низ по аналогии
Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>