pascalabcnet/_Presentations/2015 New Features/Programs/21_Set1.pas

9 lines
313 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
var ss1,ss2: set of string;
begin
ss1 := ['планшет','смартфон','ноутбук'];
ss2 := ['смартфон','компьютер','планшет'];
writeln('Объединение: ',ss1+ss2);
writeln('Пересечение: ',ss1*ss2);
writeln('Разность: ',ss1-ss2);
2015-05-14 22:35:07 +03:00
end.