// 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]
Оканчивается на 23 - это значит, что остаток при делении должен получится сначала 3, а потом 2.
63 / 5 = 12 и остаток 3
12/ 5 = 10 и остаток 2
10/ 5 = 2 => 223(5) = 63(10)
63/4 = 15 и остаток 3
15 /4 = 3 т.е. уже не подходит - оканчивается на 33
Дальше смотрим при делении 63 на что останется 3 в остатке..
63/30 = 2 и остаток 3
23(30) = 63(10)
как то так F:\SCHOOL\a1.doc
1) for
2) 1
3) В изображении 64*64 = 4096 точек512 байт = 4096 битНа одну точку приходится 4096 / 4096 = 1 битN = 2^i, где N - кол-во цветов, а i - кол-во бит информации на точку => N = 2^1 = 2. Ответ: 2 цвета.
4) not (5 = 3+2) =
<span>= not (5 = 5) =
= not true = false => ложно
5) </span>Вычисление суммы ста чисел, введенных пользователем.