Кодирование - переход от одной формы представления информации к другой, более удобной для восприятия, хранения, передачи или обработки информации.
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>
F(16)=1111(2)
1(16)=0001(2)
0(16)=0000(2)
9(16)=1001(2)
B(16)=1011(2)
1111 0001 0000 1001 1011 1011
делить на тройки надо с правого края
111 100 010 000 100 110 111 011
каждую тройку перевести в десятичное число
111(2)=1*2^0+1*2^1+1*2^2=7(8)
100(2)=4(8)
010(2)=2(8)
000(2)=0(8)
100(2)=4(8)
110(2)=6(8)
111(20=7(8)
011(2)=3(8)
Ответ 74204673(8)