Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 10 баллов за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.
<u><em>Тестовое решение</em></u>
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4
А B C A V B ^ C
1 0 1 1
1 1 0 0
1 1 1 1
0 1 1 1
0 1 0 1
0 0 0 0
1) (x>2)*¬(x<4) = (x>2)*(x≥4) =1 при x=4
1 * 1 = 1
ответ: 4) x=4
2) ¬ ((x>3) + (x< -3 ) )= 0
¬(x>3) * ¬(x< -3) =0
(x≤3)*(x≥-3) =0
1 * 1 = 1 при x=-3
1 * 1 = 1 при х=1
1 * 1 = 1 при х=3
0 * 1 = 0 при х=5
1 * 1 =1 при х =0
ответ 2) х=5
3) ¬((x>1) *(x<3)) =0 или:
(x>1)*(x<3) =1
1) x>3 1 * 0 = 0
2) x<0 0 * 1 = 0
3) x≤1 0 * 1 =0
4) x=2 1 *1 =1
5) x =3 1 * 0 = 0
ответ 4) х=2
4) ( x+3 > -10)*(x<0) = 1 ИЛИ:
(x >- 13) *(x<0) =1 ---> -13 < x < 0 --> 2) x=-10
ответ 2) х=-10
5) ¬(х<7) +(x<0) =1
(x≥7) +(x<0) =1 //////////0______________7\\\\\\\\\\x
ответ 2) x<0
6) ответ 1) ¬((x>1)* (x<3) ) (при х=2 равно 0)
7) (x<2)+(x<20)*(x>10)=1
x∉ (-∞;2) ∪ (10;20)
ответ 1)х<2
8) (x<2)+¬((x>20)+(x<10)=0
0 + ¬1 =0 при x>2
ответ 5) x>2
9) ответ 1) х=1
10) ответ 1) х=1
11) ответ 1) х=5
12) ответ 4) х=4
13) ответ: 3) х=-3
14) ответ 4) х=4
2048 байт!!!
бит-байт-кбайт-мбайт-гбайт
<span> 0,0625 Мб =</span><span>65 536 байт
</span>