program p6_14;
var
n:integer;
procedure move(n:integer;a,b,c:char);
begin
if n=1 then
writeln('move',n,'form',a,'to',b)
else
begin
move(n-1,a,c,b);
writeln('move',n,'form',a,'to',b);
move(n-1,c,b,a);
end;
end;
begin
write('input n:');
read(n);
move(n,'a','b','c');
end.
[fly]城市是幅巨大的画，无心的人在画里，有心的人在画外。[/fly][url=http://]http://user.qzone.qq.com/664598583[/url]