Даны три множества. Сформировать множество 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\ХЗ) - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.600 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы