У понеділок Толя позичив у Миколи 2 цукерки і з’їв. У вівторок він позичив у 2 рази більше цукерок, після чого віддав половину боргу, а решту цукерок знову з’їв. Кожного наступного дня він позичав у 2 рази більше цукерок, ніж попереднього дня, віддаючи з них цілу частину боргу, а решту цукерок із задоволенням з’їдав. 1. Скільки цукерок з’їсть Толя через N тижнів? 2. Скільки у нього при цьому буде складати борг? 3. Скільки цукерок встигне повернути за цей час Толя Миколці? Пайтон

Кол-во перестановок = 12

Объяснение:

Изначальное - 12345678

Нужно узнать кол-во перестановок, после которых число превратится в изначальное.

71564328  (Кол-во перестановок - 1)

27436518  (Кол-во перестановок - 2)

12653478  (Кол-во перестановок - 3)

71345628  (Кол-во перестановок - 4)

27564318  (Кол-во перестановок - 5)

12436578  (Кол-во перестановок - 6)

71653428  (Кол-во перестановок - 7)

27345618  (Кол-во перестановок - 8)

12564378  (Кол-во перестановок - 9)

71436528  (Кол-во перестановок - 10)

27653418  (Кол-во перестановок - 11)

12345678  (Кол-во перестановок - 12)

Программа Pascal:

var

 a,b:array[1..8] of integer;

 n,s,t:integer;

begin

   n:=1;

 for var i1:=1 to 8 do begin

   a[i1]:=i1;

   end;

 writeln('Изначальное - ',a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);

 while t=0 do begin

   s:=s+1;

   

   b[2]:=a[1];

   b[7]:=a[2];

   b[6]:=a[3];

   b[5]:=a[4];

   b[3]:=a[5];

   b[4]:=a[6];

   b[1]:=a[7];

   b[8]:=a[8];

   

   for var i2:=1 to 8 do a[i2]:=b[i2];

   write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);

   writeln('  (Кол-во перестановок - ',s,')');

   if (a[1]=1) and (a[2]=2) and (a[3]=3) and (a[4]=4) and (a[5]=5) and (a[6]=6) and (a[7]=7) and (a[8]=8) then t:=1;

   end;

end.