2.Код к задаче: «Удаление N-го элемента из списка - Prolog»
1.p([],N,'Error'):-N>0.
2.p([_|Tail],N,'Error'):-N1 is N-1,p(Tail,N1,"Error").
3.p([_|BL],1,BL).
4.p([AL|BL],N,[AL|CL]) :-N>1, N1 is N-1, p(BL,N1,CL).
Удачи, в информатике)
Вот. Свои ответы добавлены темно-зеленым цветом
Кратчайшее кодовое слово для Р: 011. Решение - в прилагаемом файле.
1) 8*8 = 64 бита
2) 3КБ = 3072 Б = 24576 бит
3) 102912
4) 2*8*24 = 384 бит
5) 50% (???)