Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 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
Вероятная система каталога:
D:\\
-Информатика\
--Контрольная.txt
-Млекопитающие\
--хищники\
.
Ход такой, исходный путь:
<span>D:\\
-Млекопитающие\
--хищники\
.
Поднялся на 2 уровня вверх, то-есть перешол в корень каталога(</span>D:\\ ), после чего перешол в папку (-Информатика\ ), потом находим файл (--Контрольная.txt).
Очень просто! Рисуешь ромбик ветвления, в нем пишешь вопрос:
x < 5 ?
На ветке ДА рисуешь прямоугольник, в нем пишешь формулу:
Z = x^3 + 6*x^2 + 1/(Abs(x) + 1)
На ветке НЕТ рисуешь второй ромбик, в нем вопрос:
x > 10 ?
На ветке ДА
рисуешь прямоугольник, в нем пишешь формулу:
Z = (8*x^2 + 4)/(7*x)
На ветке НЕТ
рисуешь прямоугольник, в нем пишешь формулу:
Z = Log(Abs(x))
Из всех трех прямоугольников выходят стрелки к параллелограмму
Вывод Z
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса
1) Не верно
2) Верно
3) Не верно
4) Не верно
5) Верно