Напишите программу на паскале, рабочую. Техническое задание.
Для множества А с количеством элементов N и множества В с количеством элементов М:
1) Проверить выполнение В subset А.
2) Построить А(знак пересечения)В.
3) Построить А(знак объединения)В.
4) Построить А(знак разности)В.
5) Построить любое разбиение множества А, состоящее из K подмножеств.
Требования к реализации.
1)Обеспечить ввод с клавиатуры натурального значения N из интервала [6,10]
и натуральное значение M из интервала [4,8], причём необходимо, чтобы M<=N.
2) Задать элементы множества A, B целыми случайными числами, сгенерированными
на отрезке [0, N+5]. Внутри множества не должно присутствовать одинаковых элементов.
3) Вывести на экран множества A, B упорядочив их элементы по возрастанию.
Предоставить возможность многократной генерации других множеств A, B.
4) Вывести на экран результаты решения задач 1-4, упорядочить элементы полученных
множеств по возрастанию.
5) Обеспечить ввод с клавиатуры натурального значения K из интервала [2, N -2].
6) Вывести K наборов элементов, составляющих подмножества разбиения множества A.
7) Предоставить возможность независимой корректировки каждого из вводимых с
клавиатуры параметров.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.