- 834 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 18:54:16 ]
- ２
program prog1(input, output);
var n : integer;
procedure hanoi(var n:integer ; a,b,c:char);
begin
if n>0 then
begin
hanoi(n-1,a,c,b);
writeln(n,'番の板を',a,'から',b,'に移動');
hanoi(n-1,c,b,a);
end;
end;
begin
write('円板の枚数n=');
read(n);
hanoi(n, 'a' , 'b' , 'c' );
end.
