Работа с составными типами данных в системе Turbo Pascal. Батхин А.Б - 13 стр.

7. Из множества чисел [1..n] выделить пересечение подмножеств - чисел вида 4k+1 и
   5n+4.
8. Из множества чисел [1..n] выделить объединение подмножеств - чисел вида 4k+3 и
   5n+2.
9. Из множества простых чисел, меньших чем n выделить подмножество чисел вида
   2n+1 и 2n-1.
10. Из множества чисел [1..n] выделить подмножество простых чисел вида k+1.
11. Из множества чисел [1..n] выделить подмножество составных чисел.
12. Из множества чисел [1..n] выделить подмножество составных чисел вида 6k+1.
13. Из множества чисел [1..n] выделить подмножество составных чисел вида k+1.
14. Из множества чисел [1..n] выделить подмножество простых чисел вида p-q+1, где p
   и q – простые.
15. Из множества чисел [1..n] выделить подмножество простых чисел вида 6k+1 и со-
   ставных чисел вида 6k + 1.
16. Из множества чисел [1..n] выделить подмножество простых чисел p таких, что p+2,
   p-2 – составные.
17. Из множества чисел [1..n] выделить пересечение подмножеств и разность подмно-
   жеств чисел вида 4k+3 и 5n + 2.
18. Из множества чисел [1..n] выделить подмножество совершенных чисел ( число назы-
   вается совершенным, если оно равно сумме своих собственных делителей. Напри-
   мер, 6=3+2+1).
19. Из множества чисел [1..n] выделить подмножество составных чисел вида p*q+1, где
   p и q – простые.
20. Из множества чисел [1..n] выделить подмножество простых чисел вида p*q+1, где p
   и q -простые.
Задание 3.
1. В массиве записей домашних адресов друзей посчитать количество разных улиц.
   Названия улиц заданы как значения перечислимого типа ulica.
2. Напечатать по одному разу числа, входящие в одномерный массив, и напечатать
   числа, входящие в массив по одному разу.
3. Можно ли из букв слова A собрать слово B. Буквы можно использовать по нескольку
   раз.
4. По массиву записей "Моя зачетная книжка" узнать, какие оценки вы получали за семь
   семестров. В зависимости от их количества напечать сообщение.
5. *) Не используя дополнительных переменных типа множество, поменять местами
   значения переменных множеств А и B.
6. Даны целые числа A[1],..., A[n]. Является ли эта последовательность перестановкой
   чисел 1, 2,..., n?
7. Дана матрица целых чисел размера NxM, в которой имеется ровно два одинаковых
   элементов. Найти индексы этих элементов.