thap hn ko de quy
USES CRT;
VAR DEM:INTEGER;
PROCEDURE HANOI(N,A,B,C:INTEGER);
BEGIN
IF N=1
THEN BEGIN
INC(DEM);
WRITELN(DEM,A:10,'->',B);
END
ELSE BEGIN
HANOI(N-1,A,C,B);
HANOI(1,A,B,C); {PHAN TACH TANG DE CHUYEN}
HANOI(N-1,C,B,A) {DAT TANG}
END
END;
BEGIN
CLRSCR;
DEM:=0;
HANOI(4,1,2,3);
READLN
END.
Bạn đang đọc truyện trên: Truyen247.Pro