Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Sershara
4 года назад
14
Составить программу,которая формирует список L, включив в него по одному разу элементы,которые входят одновременно в оба списка
L1 и L2.
Pascal abc.net
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
юлЧИК
4 года назад
0
0
// 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]
Отправить
Читайте также
Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.Напи
ОльгаАвгуст [28]
Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
0
0
4 года назад
Помогите пожалуйста сделать задание!)
Тат8097
Какое задание ?????????
0
0
3 года назад
Почему отношение можно отнести к свойствам предмета?
Екатерина71
Если отношение предмета к предмету то
потому что разные предметы по разному реагируют друг на друга
или я хз
0
0
3 года назад
Помогите пожалуйста. Нужно решить до понедельника, а времени нет. Буду очень благодарен
Defler
1-5
2-5
3-32
4-6
5-0
6-бесконечно
7-не исполниться
8-3
9-бесконечно
по моему так
0
0
4 года назад
Прочитать ещё 2 ответа
Ученик пятого класса Максим зимой побывал в Архангельской области, богатой лесами, и своими глазами увидел процесс лесозаготовки
ваня 2 [2]
Я МОГУ СКАЗАТЬ ТО ЧТО У НЕГО ЕСТЬ ВООБЩЕТО НЕ 1 ОШИБКА А 2 ОШИБОК))
0
0
4 года назад
Смотрите также:
Решите пожжжж поооооожжжжжж
11
·
1 ответ
Помогите пж !!!!!!!!!!!!!!!!!!
5
·
2 ответа
Помогите с паскалем , вот задание ,пожалуйста
8
·
1 ответ
Что такое иерархия? (По информатике)
11
·
1 ответ
Ребят пожалуйста помогите написать программу для подсчета числа различных разделителей в строке. Программу на С
6
·
1 ответ
Помогите, прошу, очень надо!!!
6
·
1 ответ
Почему книжка с картинками понятнее?
7
·
1 ответ
2. Из 24 спичек, выложили поле для игры в крестики-нолики (квадрат 3*3). Нужно убрать восемь спичек, чтобы количество квадратов
5
·
2 ответа
Сколько кбайт в 13 гбайт?
7
·
1 ответ
Дан одномерный массив из n элементов в интервале [0,50] найти количество элементов попадающих в интервал [0,25] и количество эле
12
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!