<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Transform(t -> t.IsEven ? t + 1 : t * 2);
a.Println
end.
Нужно натиском все цифры числа а затем сравнивать в цикле 1 с последним затем второе с предпоследний и так далее...
При мощности алфавита 16 для хранения одного символа требуется log(2)16 = 4 бита.
Объем текста = 4*180*1024 бит = 4*180*1024 / 8 байт = 90*1024 / 1024 Кбайт = 90 Кбайт
ні........
тому що вони майже однакові, хоча це залежить від формата