Т.к. должно выйти число 9₁₀, то сумма весов 14χ должна быть равна 9, т.е. 1·x¹+4·x⁰=9
x⁰=1, значит x+4=9
x=5
9^22+3^66-9=3^66 + 3^44 - 3^2
3^2= 100 (3cc)
3^44 =10....0 (3cc) (сорок четыре нуля после единицы)
3^66 =10....0 (3cc) (66 нулей)
------------------------------------------------------
3^44-3^2= 10....0000 - 100 (3cc) =2....200 (44-2=42 двойки)
ответ 42
Function ToBinaryString(x: integer): string;
var r, s: string;
begin
if x < 0 then begin
s := '-';
x := -x;
end;
while x <> 0 do begin
r := Chr((x and 1) or 48) + r;
x := x shr 1;
end;
ToBinaryString := s + r;
end;
var x: integer;
begin
readln(x);
writeln(ToBinaryString(x));
<span>end.</span>
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
1024000/1024/8=125 килобайт в секунду.
2500/125=20 секунд