Все нули . потому что 00 . 001 и т.п. считаются за 1клб
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.
Число 972 в двоичной системе счисления - 1111001100 его перестановки:
1111001100
0111100110
0011110011
1001111001
1100111100
0110011110
0011001111
1001100111
1100110011
<span>1110011001
наименьшая - </span>0011001111 =207
Ищем самую большую цифру и добавляем к ней единицу.
Самая большая тут семь, семь плюс один равно восемь.
<em>Ответ: основание 8</em>
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>