Помогите решить, пожалуйста)

Помогите решить, пожалуйста)

Задать свой вопрос
1 ответ
//PascalABC.Net 3.1.0.1200
uses System;
var
    A: array of integer := (1, 2, 4, 6);
    B: array of integer := (1, 2, 4, 7, 8);
    C: array of integer := (1, 4, 5, 6, 7, 8);

begin
    var D := A.Intersect(C);
    D := (B.Union(D)).Except(B.Intersect(D));
    D := (D.Union(C)).Except(D.Intersect(C));
    Println(D.Sorted);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт