... Bài tập thực hành BProlog 1. Viết vị từ demchan đếm trên một danh sách có bao nhiêu phần tử là số chẵn. Vd: demchan([4,9,6,5,2],N) N=3 demchan([],0) :-! . demchan([H|T],S) :-( H mod ... demchan([_|T],S):-demchan(T,S). 2. Viết vị từ ptn nhận đối số là một danh sách cùng số nguyên dương n và in ra phần tử thứ n trong danh sách. Vd: ptn([4,9,6,5,2],2,X) X=9 dem([],0) :-! . dem([_|T],N):-dem(T,N1),N ... chenn(X,[H|T],[X|[H|T]]):-X>=H,!. chenn(X,[H|T],[H|T1]):-chenn(X,T,T1). sapgiam([H],[H]) :-! . sapgiam([H|T],T2):-sapgiam(T,T1),chenn(H,T1,T2). phan(T,0,[],T) :-! . phan([H|T],N,[H|T1],Y):-N1 is N-1,phan(T,N1,T1,Y)....