Чет про программирование / практика / 2) Ханойские башни

Ханойские башни ((2^n) - 1)

Var

N: integer;

Procedure hanoy (K, I, J : INTEGER);

Begin

If k = 0 then exit;

Hanoi (k – 1, I, 6-i-j);

Writeln (n-k+1, ‘:’, I, ‘->’, j);

Hanoi (k-1, 6-i-j, j);

End;

Begin

Readln(n);

Hanoi (n,1,3);

Readln;

End.