Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
VaDerSs
05.04.2021 05:47 •
Информатика
Составить программу,которая формирует список l, включив в него по одному разу элементы,которые входят одновременно в оба списка l1 и l2. pascal abc.net
Показать ответ
Ответ:
ddcgsshrdfydd
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 оценок)
Популярные вопросы: Информатика
GDA1
29.11.2022 19:05
Надо написать программу, которая задумывает число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток....
sem212
16.11.2020 14:39
Вычислить значение выражения: у=5х^3+16х^2+18х-29....
marenich101520
01.10.2021 23:31
Що з переліченого НЕ належить до інтернет-речей? * 1.кероване мобільним телефоном ввімкнення світла 2.керований мобільним телефоном чайник 3.керований мобільним телефоном принтер...
laravivaldyoy2w4w
02.10.2022 07:30
Неправильно написала вопрос, пишите фигню и берите...
ladomix
12.07.2020 17:42
Потрібно розвязати задачу на с++ Можна любу яку знаєте 1-4.дано дійсне число N, вивести подвоєну його цілу частину.Вхідні дані:12.958Вихідні дані:24...
awdrg12345
31.10.2022 17:39
очень у меня сор правда ...
HETHEDAM
31.10.2022 17:39
Запиши формулу и выражение а) Света читает 100 слов в минуту. Сколько слов она прочитает за полчаса?6) Мастер делает 25 деталей за один час. Скольковремени он работал, если получилось...
Darvin2004
01.03.2021 16:15
Наклонная AD с плоскостью α образует угол 300 , а наклонная DC с плоскостью α образует угол 450 . Длина перпендикуляра DB равна 29 см. Вычисли длины обеих наклонных. ответ: 1. AD=...
toptop54
20.05.2021 09:41
если правильно будет оценю как лучший ответ 1. Самовозгорание растительных материалов на примере волокнистых материалов ,жиров и масел. Предсказание склонности к самовозгоранию и...
еаае1ьп
20.05.2021 09:41
Решите столбиком 12492:347, 51054:127,231693:231,7595:217...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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]