Даны три множества: А - множество натуральных чисел, делящихся нацело на 6; B - множество натуральных чисел, делящихся нацело на 10; С - множество натуральных чисел, делящихся нацело на 21. Определить, принадлежит ли число s = 126 множеству D = (А U В) \ ((А ⌒ C) U (B ⌒ C))? Показать это число на диаграмме Венна, иллюстрирующей множество D.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
массив: РЯД 15 ИЗ ВЕЩ;
сч, найдено: ЦЕЛ;
найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;
УКАЗ
найдено := 0;
СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] = массив[0] ТО
найденное[найдено] := сч;
УВЕЛИЧИТЬ(найдено)
КОН
КОН;
ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
ИНАЧЕ
СОЗДАТЬ(индексы, найдено);
ОТ сч := 0 ДО найдено - 1 ВЫП
индексы[сч] := найденное[сч]
КОН;
найденное := ПУСТО
КОН
КОН Задание.