// PascalABC.NET 3.0, сборка 1128 begin var n:=ReadInteger('n='); Writeln('Первый массив:'); var a:=ArrRandom(n,1,50).Println(','); Writeln('Второй массив:'); var b:=ArrRandom(n,1,50).Println(','); Writeln('Минимальное значение, отсутствующее во втором массиве: ', a.OrderBy(x->x).Except(b.OrderBy(x->x)).Take(1)) end.
Тестовое решение: n= 20 Первый массив: 18,1,4,1,22,14,34,18,50,9,27,41,26,11,8,34,7,35,34,33 Второй массив: 7,19,3,8,26,30,50,46,33,20,1,3,9,4,34,42,1,7,46,34 Минимальное значение, отсутствующее во втором массиве: [11]
begin
var n:=ReadInteger('n=');
Writeln('Первый массив:');
var a:=ArrRandom(n,1,50).Println(',');
Writeln('Второй массив:');
var b:=ArrRandom(n,1,50).Println(',');
Writeln('Минимальное значение, отсутствующее во втором массиве: ',
a.OrderBy(x->x).Except(b.OrderBy(x->x)).Take(1))
end.
Тестовое решение:
n= 20
Первый массив:
18,1,4,1,22,14,34,18,50,9,27,41,26,11,8,34,7,35,34,33
Второй массив:
7,19,3,8,26,30,50,46,33,20,1,3,9,4,34,42,1,7,46,34
Минимальное значение, отсутствующее во втором массиве: [11]
2005 : 8 = 250, остаток 5
250 : 8 = 31, остаток 2
31 : 8 = 3, остаток 7
3 : 8 = 0, остаток 3
Выписываем остатки в обратном порядке: 3725
В пятеричную
2005 : 5 = 401, остаток 0
401 : 5 = 80, остаток 1
80 : 5 = 16, остаток 0
16 : 5 = 3, остаток 1
3 : 5 = 0, остаток 3
Выписываем остатки в обратном порядке: 31010
В двоичную
2005 : 2 = 1002, остаток 1
1002 : 2 = 501, остаток 0
501 : 2 = 250, остаток 1
250 : 2 = 125, остаток 0
125 : 2 = 62, остаток 1
62 : 2 = 31, остаток 0
31 : 2 = 15, остаток 1
15 : 2 = 7, остаток 1
7 : 2 = 3, остаток 1
3 : 2 = 1, остаток 1
1 : 2 = 0, остаток 1
Выписываем остатки в обратном порядке: 11111010101