Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
oleshckewitchd
17.03.2021 06:43 •
Информатика
Составить программу,которая формирует список l, включив в него по одному разу элементы,которые входят одновременно в оба списка l1 и l2. pascal abc.net
Ответ:
CISA9999
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 оценок)
Популярные вопросы: Информатика
lisofoxi
28.12.2020 07:49
Найти сумму натуральных чисел от 2 до 56....
ilyadmitriev0
02.07.2022 07:30
Дана строка символов.удалить каждое слово,содержащее заданный фрагмент,посчитать количество удаленных слов....
kitiry
20.11.2021 01:48
Написать программу на паскале, которая формирует случайным образом массив из n- целых чисел, лежащих в диапозоне от 1 до 5, вывести сма массив и номера элементов с первым...
Aigerimmmmmmm
20.11.2021 01:48
Файл с монозвуком имеет глубину кодирования 16 битов и частоту дискретизации 16 000. вычеслите информационный объём файла в килобайтах, если продолжительность его звуания...
Костя10987654321
20.11.2021 01:48
Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10;...
даша3171
06.04.2023 08:02
Есть ли омонимы у слов : барашек, брак,бокс,гусеница,ключ,зарядка,вал, ёрш, зуб, ворот, каток?...
dfgro
06.04.2023 08:02
1. выполнить фонетический разбор 1 вариант: ящик 2 вариант: листья 2. выполнить морфемный разбор 1 вариант: выкопанную, поставили, заморозок 2 вариант: порозовел, осыпались,...
danmin444
06.04.2023 08:02
Напишите 10 предложений с тәуелдік жалғау...
Feshiondiva
06.04.2023 08:02
Втрёх домах 300 квартир. в первом доме на 20 квартир больше, чем во втором и на 20 меньше, чем в третьем. сколько квартир в каждом из этих домов?...
dashaegirova
21.04.2023 02:02
Бюджет деген сөз қандай мағынаны білдіреді?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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]