Опишите множества D1, D2, D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. Выполните над множествами операции объединения, разности и пересечения.

Program Dafnochka;

uses crt;

type

TypeD=set of 0 ... 10;

var

dr, d1, d2, d3:TypeD;

c:integer;

begin

d1:=[2,4,6,8];

d2:=[0,1,2,3,5];

d3:=[1,3,5,7,9];

{вывод множеств}

writeln ('Множество D1:') ;

for c:=0 to 10 do

if c in d1 then

write (' ', c,' ') ;

writeln () ;

writeln () ;

writeln ('Множество D2:') ;

for c:=0 to 10 do

if c in d2 then

write (' ', c,' ') ;

writeln () ;

writeln () ;

writeln ('Множество D3:') ;

for c:=0 to 10 do

if c in d3 then

write (' ', c,' ') ;

writeln () ;

writeln () ;

{примеры}

dr:=d1+d2;

writeln ('Пример 1 - объединение множеств D1 U D2') ;

for c:=0 to 10 do

if c in dr then

write (' ', c,' ') ;

writeln () ;

dr:=d2-d3;

writeln () ;

writeln ('Пример 2 - разность множеств D2/D3') ;

for c:=0 to 10 do

if c in dr then

write (' ', c,' ') ;

writeln () ;

dr:=d2*d3;

writeln () ;

writeln ('Пример 3 - пересечение множеств D2 П D3') ;

for c:=0 to 10 do

if c in dr then

write (' ', c,' ') ;

writeln () ;

end.