//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger();
var a:=ArrRandom(n,-10,10);
a.Println;
for var i:=0 to n-1 do if a[i]mod 2<>0 then print(a[i]);
end.
function Pow(x, y: real): real;
var
PowTmp: real;
begin
if (x < 0) then
PowTmp := (-1) * Exp(y * Ln(Abs(x)))
else if (x > 0) then
PowTmp := Exp(y * Ln(Abs(x)))
else PowTmp := 0;
if not (odd(round(y))) then PowTmp := Abs(PowTmp);
if (y = 0) then PowTmp := 1;
Pow := PowTmp;
end;
Вот функция, приклейте, куда нужно:)
X+24(10cc) =127(9cc)
127(9cc) =1*9² +2*9^1 +7*9^0=81+18+7=106 (10cc)
x=106-24
x=82 (10cc)
82 (10cc)=3*5^2 +1*5^1 +2*5^0 = 312 (5cc)
x= 312 (5cc)
Ну кодирование-декодирование!?