Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
papovasvet
06.01.2020 15:43 •
Информатика
Составить программу,которая формирует список l, включив в него по одному разу элементы,которые входят одновременно в оба списка l1 и l2. pascal abc.net
Показать ответ
Ответ:
человек416
03.10.2020 01:32
// PascalABC.NET 3.0, сборка 1088
begin
var L1:=new List<integer>;
L1.AddRange(SeqRandom(15,-20,20));
Writeln('Список L1'); Writeln(L1);
var L2:=new List<integer>;
L2.AddRange(SeqRandom(10,-5,40));
Writeln('Список L2'); Writeln(L2);
var L:=new List<integer>;
L.AddRange(L1.Intersect(L2).Distinct);
Writeln('Список L'); Writeln(L);
end.
Тестовое решение:
Список L1
[8,7,-13,0,12,-1,3,5,-15,13,18,-10,16,14,-1]
Список L2
[31,37,25,13,2,14,5,8,10,34]
Список L
[8,5,13,14]
0,0
(0 оценок)
Популярные вопросы: Информатика
Mrkronomax
02.03.2023 01:08
Вопрос 3. К поисковому серверу было сформировано три запроса: А) Восток&Запад; Б) Восток|Запад; В)(Восток|Запад)&Юг. Укажите букву, которой соответствует наименьшее количество...
marianachornii
13.01.2020 23:41
Решите 1 и 2 задание так как сказано и на листе !...
denislabynsky
24.12.2020 00:40
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(1) = 3; F(2) = 4; F(n) = 4·F(n - 2) +2·(n - 1), при n 2. Чему равно значение...
ldfjwdsrerwv
20.03.2021 15:22
МОВА ПАСКАЛЬ Автомобіль подолав відстань S км через населений пункт за T хв. Визначити чи не порушив водій правил дорожнього руху якщо швидкість автомобіля при цьому не повиннна перевищувати...
theanuta11
15.02.2020 01:38
6. Заполните таблицу 5.2 примерами. Таблица 5.2Бумажные носителиинформацииМагнитные носителиинформацииОптические носителиинформации ...
Путин12356
16.02.2022 10:03
Теперь, давайте улучшим наш ежедневник. В нулевом элементе дня недели будем хранить дела на утро, в первом на полдень, во втором на вечер. 1) Создайте команду Очистить дело (delete)...
настя7603
01.08.2020 06:22
Створіть новий файл Python та підключіть відповідний модуль. Створіть нове вікно світло червоного кольору із розмірами 600 на 700 пікселів із забороною змінювати розміри вікна. Створити...
Милаха7884433
27.10.2020 05:44
Створіть вікно жовтогарячого кольору з розмірами 600х600 та з заголовком Перше вікно . Створіть текстове поле будь-якого кольору. Ширина поля 30 знаків та шрифт Саlibri 12 . Створіть...
alona2017
03.08.2022 13:31
Вычислить указанные величины, зависящие от условий, с логических функций...
filimo2000
03.10.2022 22:26
Остача від ділення==///%*!==**...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var L1:=new List<integer>;
L1.AddRange(SeqRandom(15,-20,20));
Writeln('Список L1'); Writeln(L1);
var L2:=new List<integer>;
L2.AddRange(SeqRandom(10,-5,40));
Writeln('Список L2'); Writeln(L2);
var L:=new List<integer>;
L.AddRange(L1.Intersect(L2).Distinct);
Writeln('Список L'); Writeln(L);
end.
Тестовое решение:
Список L1
[8,7,-13,0,12,-1,3,5,-15,13,18,-10,16,14,-1]
Список L2
[31,37,25,13,2,14,5,8,10,34]
Список L
[8,5,13,14]