===== 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.