Круги эйлера, надеюсь, сама нарисуешь, ведь если ты не знаешь что это такое, то решать вообще бессмысленно.
Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>
Python:
def F(n):
if n > 2:
return F(n-1)+ F(n-2)
else:
return n
если n = 1 или n = 2, то F(n) = 1
F(1)=1
F(2)=1
F(3)=F(2)+F(1)=1+1=2
F(4)=F(3)+F(2)=2+1=3
F(5)=F(4)+F(3)=3+2=5
F(6)=F(5)+F(4)=5+3=8
Ответ: F(6)=8