<span>var n,a,b,c:integer;
begin
readln(n);
if n=1 then write('true')
else
begin
a:=1;
b:=1;
c:=0;
while c<n do
begin
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write('true')
else write('false');
end.</span>
Сначала надо перевести всё в десятичную систему счисления.
<em>Для перевода из </em><em>N </em><em>системы счисления надо умножать на эту же </em><em>N</em>
43₈ = 3 * 8⁰ + 4 * 8₁ = 3 + 32 = 35₁₀
10100₂ = 0 * 2⁰ + 0 * 2¹ + 1 * 2² + 0 * 2³ + 1 * 2⁴ = 0 + 0 + 4 + 0 + 16 = 20₁₀
----------------------------------------------------------------------------------
у 16 счет немного другой: 0123456789ABCDEF (в 10)
A = 10, B = 11, C = 12, D = 13, E = 14, F = 15
----------------------------------------------------------------------------------
B₁₆ = 11₁₀
40₁₀ : (35₁₀ - 20₁₀ - 11₁₀) = 40 : 4 = 10
Ответ: 10
Работа на компьютере надо сначала Учителя не поднимать кресло