Даны три множества. Сформировать множество Y= (X2\X3) (Х1\ХЗ) - Pascal ABC
Формулировка задачи:
Помогите решить.
3.
Даны три множества XI- {Т2,Т4,Т6,TS,Т10}, Х2 = {Т1,Т2,ТЗ,Т4,Т5} и Х3 = {Т2,ТЗ, Т5, Т7, Т8} . Сформировать множество Y= (X2\X3) (Х1\ХЗ). На печать вывести Y и его мощность. Исходные множества описать как типизированные константы.Решение задачи: «Даны три множества. Сформировать множество Y= (X2\X3) (Х1\ХЗ)»
textual
Листинг программы
const
x1 = [2, 4, 6, 8, 10];
x2 = [1, 2, 3, 4, 5];
x3 = [2, 3, 5, 7, 8];
var
y: set of byte;
i, k: byte;
begin
y := (x2 - x3) * (x1 - x3);
WriteLn('Множество: ');
Write('[');
for i := 0 to 255 do
if i in y then
begin
Write(i, ' ');
k := k + 1
end;
WriteLn(']');
WriteLn('Мощность множества = ', k);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д