9 lines
313 B
ObjectPascal
9 lines
313 B
ObjectPascal
var ss1,ss2: set of string;
|
|
|
|
begin
|
|
ss1 := ['планшет','смартфон','ноутбук'];
|
|
ss2 := ['смартфон','компьютер','планшет'];
|
|
writeln('Объединение: ',ss1+ss2);
|
|
writeln('Пересечение: ',ss1*ss2);
|
|
writeln('Разность: ',ss1-ss2);
|
|
end. |