program sets;
type
mn=set of 0..9;
var
a,b,c:mn;
begin
a:=[1,2,3,4,5,6];
b:=[5,6,7,8,9,0];
writeln(a+b);
writeln(a*b);
write(a-a*b);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program sets;
type
mn=set of 0..9;
var
a,b,c:mn;
begin
a:=[1,2,3,4,5,6];
b:=[5,6,7,8,9,0];
writeln(a+b);
writeln(a*b);
write(a-a*b);
end.
type
mn=set of 0..9;//описание множества десятичных цифр
var
a,b:mn;//объявление двух множеств
begin
a:=[1,2,3,4,5,6];//заполнение первого множества
b:=[5,6,7,8,9,0];//заполнение второго множества
writeln(a+b);//вывод результата объединения множеств
writeln(a*b);//вывод результата пересечения множеств
write(a-a*b);//вывод результата исключения из первого множества элементов, которые есть во втором множестве
end.