... P=Bnumber then begin new(K); K^.bit:=1; K^.next:=bnumber^.next; Bnumber^.next:=k; BÀI TẬP CẤU TRÚC DỮ LIỆUBÀI 1_3.{ TRON 2 DANH SACH }Procedure MergerList(L1,L2:List;Var L:List);Var Q,P,T: ... end else if P^.bit=0 then P^.bit:=1 else begin P^.bit:=0; increment(Bnumber,P); end;End;BÀI 1_9Const max_T=100;Type Elementype= char; Node=integer; Tree = Record label_T: array[1 ... m<>0 do begin h:=max(h,height(m,T)); m:=RIGHT_SIBLING(m,T); end; height:=h+1; end;end;BÀI 2_2{ DUYET DUONG DI CUA 1 NUT VE GOC }Procedure DD(m:node;VAR q: integer; Var A: mang;T:Tree);Var...