1)перевести из 2 в 10 систему числаа)11б)101012)перевести из 10 в 2 системуа)464б)380​

а) 129

б) 21

2.

а) 111010000

б) 101111100

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.

P =NP

Объяснение:

создаем переменую х и у

и содаем перемную х 1 и  у1

P равно х и игрек

NP равно х 1 и  у1

теперь P =NP

проверяем в системе кординат например 8 на 8

мы видим равенство класов

смотри мы можем сделать так

допустим это книга с пронумероваными страницами

каждая страница собщаеть какой диапазон значение на даном поле

но если мы будем сравнивать первая клетка и каждую последущую перебором это будет  долго

мы можем наложить поле на поле   и проверить сразу два значения  и сравнить их отельно

то есть  найдя на страничке  список номеровмы можем сразу  выводить значения из поля  и передать еще одной переменой проверить  были совпадения или нет