Здесь есть решение в python, но в шк pascal. напишите решение для pascal . или просто решение, или с excel. 20 . в основу эффективного решения головоломки «ханойская башня» положен алгоритм, суть которого сводится к следую­щему: для перемещения башни, состоящей из п колец, сперво­го стержня на третий мы должны решить чуть более простую переместить на второй стержень башню, состоящую из п-1 кольца. после этого нижний диск с первого стержня пе­ремещается на третий и повторно осуществляется перемеще­ние башни из п-1 кольца, но уже со второго диска на третий. таким образом, число ходов, необходимых для перемещения башни из л колец, равно удвоенному числу ходов, необходи­мых для перемещения башни из и-1 кольца, и ещё одному ходу. используйте эту закономерность для вычисления числа ходов, необходимых для перемещения башни из 64 колец. вы­числите, сколько времени займёт такое перемещение, если считать, что на один ход требуется 1 секунда.

function hanoi(n: integer): uint64;

begin

    if n = 1 then

    begin

        result: =1;

        exit();

    end

    else

    begin

        result: =2 * hanoi(n-1) + 1;

    end;

end;

begin

    writeln(hanoi(64));

end.

Const   n = 5;   var   a, s1, s2: integer;   i, q1, q2: byte;   begin   s1 : = 0; q1 : = 0;   s2 : = 0; q2 : = 0;   writeln('введите ', n, ' чисел: ');   for i : = 1 to n do begin     read(a);     if a < 0 then begin       s1 : = s1 + a;       inc(q1)     end;     if a > 0 then begin       s2 : = s2 + a;       inc(q2)     end;   end;   writeln;   if q1 > 0 then begin     writeln('сумма отрицательных чисел: ', s1);     writeln('количество отрицательных: ', q1)   end   else writeln('отрицательных нет');   if q2 > 0 then begin     writeln('сумма положительных чисел: ', s2);     writeln('количество положительных: ', q2)   end   else writeln('положительных нет') end.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив a[',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4);   for var i: =0 to m-1 do a[i,2]: =-7;   writeln(4*a.colcount*'-');   a.println(4) end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив a[6,9] ***   -14  34 -25  27 -48 -15  50  26 -16     8 -15 -49 -50 -44 -44  47  32  35   -32  13  19 -16 -25  41  10  39  49   -11 -35 -39 -16  26 -19  47 -11  14   -22  42  -5 -39  28 -42    9 -41  18     0 -22 -25 -15 -11    7  31  38  33   -14  34  -7  27 -48 -15  50  26 -16     8 -15  -7 -50 -44 -44  47  32  35   -32  13  -7 -16 -25  41  10  39  49   -11 -35  -7 -16  26 -19  47 -11  14   -22  42  -7 -39  28 -42    9 -41  18     0 -22  -7 -15 -11    7  31  38  33