23 lines
409 B
ObjectPascal
23 lines
409 B
ObjectPascal
var
|
|
n:longint;
|
|
|
|
procedure hanoi(n:longint;a,b,c:char);
|
|
begin
|
|
if n=1 then writeln(n,' ',a,' ',b)
|
|
else
|
|
begin
|
|
hanoi(n-1,a,c,b);
|
|
writeln(n,' ',a,' ',b);
|
|
hanoi(n-1,c,b,a);
|
|
end;
|
|
end;
|
|
|
|
Begin
|
|
assign(input,'hanoi.in'); reset(input);
|
|
assign(output,'hanoi.out'); rewrite(output);
|
|
readln(n);
|
|
hanoi(n,'A','B','C');
|
|
readln;
|
|
close(input);close(output);
|
|
end.
|