Question

Составить программу, которая формирует список L, включая в него по одному разу элементы, которые входят одновременно в оба списка L1и L2.
Pascal понятный код учителю, без сложных элементов

Answer 1

===== PascalABC.NET =====

begin

 var L1 := SeqRandom(15, 10, 99).ToList;

 L1.Println;

 var L2 := SeqRandom(20, 10, 99).ToList;

 L2.Println;

 var L3 := L1.Intersect(L2).Distinct.ToList;

 L3.Println

end.