32768 = 2^15 = 1000000000000000(2)
Выпишем все числа с нечетным кол-вом 1 и симметричные:
1, 111, 10101, 11111, 1001001, 1101011, 1011101, 1111111,
100010001, 110010011, 101010101, 100111001, 110111011,
101111101, 111111111, 10000100001, 11000100011, 10100100101,
10010101001, 10001110001, 11001110011, 10101110101, 10011111001,
11011111011, 10111111101, 11111111111, 1000001000001,
1100001000011, 1010001000101, 1001001001001, 1000101010001,
1000011100001, 1100011100011, 1010011100101, 1001011101001,
1000111110001, 1100111110011, 1010111110101, 1001111111001,
1101111111011, 1011111111101, 1111111111111, 100000010000001,
110000010000011, 101000010000101, 100100010001001,
100010010010001, 100001010100001, 100000111000001,
110000111000011, 101000111000101, 100100111001001,
100010111010001, 100001111100001, 110001111100011,
101001111100101, 100101111101001, 100011111110001,
110011111110011, 101011111110101, 100111111111001,
110111111111011, 101111111111101, 111111111111111
Всё! Всего 64 числа.
Const m=5; n=6;
var
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
44 30 35 16 47 3
30 15 23 40 15 46
46 11 2 3 16 40
19 17 8 22 10 25
41 23 9 47 7 36
Полученный массив:
3 15 2 8 7
Очень просто задание.
А - 11
Б - 010
В - 100
Г - 110
1100101111110100, чтобы перевести в шестнадцатеричный код нужно отделять по 4 знака.
1100 1011 1111 0100
По таблице тетрад знаем.
CBF4
Ответ: CBF4
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -99, 99);
a.Println;
var k := ReadInteger('Введите число для отбора по кратности:');
var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;
b.Println
end.
<h3>Пример</h3>
n= 21
-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85
Введите число для отбора по кратности: 3
51 -72 -51 42 60 -24 -21 45
