Question

Задание на фотографиях

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Мощность множества А:');

 var A := ReadSeqInteger('Вводите А:', n).ToHashSet;

 n := ReadInteger('Мощность множества B:');

 var B := ReadSeqInteger('Вводите B:', n).ToHashSet;

 Println('Объединение:', A + B);

 Println('Пересечение:', A * B);

 Println('Разность:', A - B);

 A.SymmetricExceptWith(B);

 Println('Симметричная разность:', A);

end.