RU:Напишите процедуру, которая выводит на экран переданное ей число в негадвоичной системе счисления, основание которой равно (–2). Например, 1011(-2)=1•(-2)3 +0•(-2)2 +1•(-2)1 + 1•(-2)0 =-8-2+1=-9UKR: Напишіть процедуру, яка виводить на екран передане їй число в негадвоічной системі числення, заснування якої дорівнює (-2). наприклад,1011 (-2) = 1 • (-2) 3 + 0 • (-2) 2 + 1 • (-2) 1 + 1 • (-2) 0 = -8-2 + 1 = -9

procedure convert ( x: integer );

var s: string;

k, error, len: integer;

element: array[1. . 20] of real;

i, rez: real;

const N = -2;

begin

s := IntToStr(x);

len := length(s);

if len = 0 then writeln('Ошибка!')

else

begin i := 0;

rez := 0;

for k := 1 to len do val(s[k], element[k], error);

for k := 1 to len do

begin

i := element[k] * power( N, len - k );

rez := rez + i;

end;

writeln(rez);

end;

end;

var numeric: integer;

begin

write('Введите двоичное число для перевода в систему счисления с основанием (-2): ');

readln(numeric);

write(' : ');

convert(numeric);

end.