Условия задач и их решения прикреплены во вложениях.
101(x) = 1*x^2+0*x^1+1
101(x+1) = (x+1)^2+1
x^2+1 + 13 = (x+1)^2+1
x^2 + 14 = (x+1)^2+1
(x+1)^2 -13- x^2 = 0
x^2 + 2x + 1 - 13 - x^2 =0
2x = 12
x = 6
<span>
47 + 13 = 50 </span>
const
n = 5;
var
a,i,k : integer;
begin
readln (a);
k := 1;
While (a < 0) and (k < n) do
begin
k := k +1;
readln (a);
end;
for i := k to n do
readln (a);
a := k;
While a <n do
begin
k := k -1;
a := n;
end;
writeln (k); <span>
end.</span>
Переводим В3(16)= 179(10)= 10110011(2)
74(8)=60(10)=111100(2)
1010011 x 111100= 10100111110100