... xoadsc([H|[H1|T]],[H|[H1|T1]],X):-xoadsc([H1|T],[H1|T1],X),!. xoadsc([H|T],[H1|T1],[H|T2]):-xoadsc(T,[H1|T1],T2). ktdsc([H|_],[H] ,1) :-! . ktdsc([H|[H1|T]],[H|[H1|T1]],M):-ktdsc([H1|T],[H1|T1],M1),M=M1 +1, !. ktdsc([_|T],[H1|T1],M):-ktdsc(T,[H1|T1],M),!. ... dem([],0) :-! . dem([_|T],N):-dem(T,N1),N is N1 +1, !. ptn([X|_] ,1, X) :-! . ptn([_|Y],M,Z):-M1 is M -1 , ptn(Y,M1,Z),!. ptg([A|B],C):-dem([A|B],K),(K mod 2) =:= 1, K1 is K/<2,K2 is K1 +1, ptn([A|B],K2,C),!. ... mod 2) =:= 0,N1 is N/2,phan(X,N1,Y1,Z1),saptang(Y1,Y),sapgiam(Z1,Z). chiahai(X,Y,Z):-dem(X,N),N1 is (N/>2),phan(X,N1,Y1,Z1),saptang(Y1,Y),sapgiam(Z1,Z). 11 . Viết vị từ xenke(L1,L2,L3) trong...