31 lines
469 B
ObjectPascal
31 lines
469 B
ObjectPascal
|
program Hanoi;
|
||
|
|
const split = ',';
|
||
|
|
var
|
||
|
|
n, t, i: integer;
|
||
|
|
|
||
|
|
procedure move(x, y: integer);
|
||
|
|
begin
|
||
|
|
write(x,y,split);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure hanoi(n, one, two, three: integer);
|
||
|
|
begin
|
||
|
|
if n = 1 then
|
||
|
|
move(one, three)
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
hanoi(n - 1, one, three, two);
|
||
|
|
move(one, three);
|
||
|
|
hanoi(n - 1, two, one, three);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
read(n);
|
||
|
|
for i := 1 to n do
|
||
|
|
begin
|
||
|
|
read(t);
|
||
|
|
hanoi(t, 1, 2, 3);
|
||
|
|
end;
|
||
|
|
end.
|