А.) Х1=1010, У1= -100; А.) Х2=-11001, У2=10101. Произвести суммирование в обратных и дополнительных кодах. ответ записать в виде двоичного числа. Развернутый ответ с таблицей.

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.

import math

p = int(

b = false

for i in range(1, p ** 2):

    gip = (p ** 2) + (i ** 2)

    if math.sqrt(gip) % 1 == 0:

        b = true

        if int(math.sqrt(gip)) ! = p:

            print(int(math.sqrt(

if b == false:

    print(-1)

# что-то типо этого, но не проходит по времени. надо смотреть диапазон. может если кто дорешает, ответьте. а так всё норм работает)