// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(12,-12,12); a.Println;
var b:=a.Batch(a.Length div 3).Select(x->x.Reverse);
var k:=0;
foreach var e1 in b do
foreach var e2 in e1 do begin a[k]:=e2; Inc(k) end;
a.Println
end.
<u><em>Тестовое решение:</em></u>
-7 -9 8 -11 -5 -3 -2 6 11 -7 4 -6
-11 8 -9 -7 6 -2 -3 -5 -6 4 -7 11
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=A1*A1" и протягиваешь вниз на всю таблицу
в третем пишешь "=A1*A2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
26(букв)+10(цифр)=36, т.е чуть больше 5 бит (<span>
5,169925)</span>≈6 бит, 2^6=64 символа может быть в алфавите, можно добавить 64-36=28 символов<span><span>
</span></span>