Предикат, вычисляющий произведение чисел от (N div 2) до N - Prolog
Формулировка задачи:
Помогите пожалуйста с программой.
Создать предикат, вычисляющий по натуральному числу N произведение чисел от (N div 2) до N.
Решение задачи: «Предикат, вычисляющий произведение чисел от (N div 2) до N»
textual
Листинг программы
predicates prod(real,real,real) task(real,real) clauses prod(N,M,M) :- abs(M-N/2)<=0.000001, !. prod(N,M,K) :- M1=M-1, prod(N,M1,K1), K=K1*M. task(N,R) :- prod(N,N,R).