Вычислить сумму кубов чисел от 1 до n - Prolog
Формулировка задачи:
Написать программу, которая для заданного натурального N вычисляет сумму кубов S(N)=13+23+…+N3
Решение задачи: «Вычислить сумму кубов чисел от 1 до n»
textual
Листинг программы
predicates sumq(integer,integer) clauses sumq(1,1). sumq(N,R) :- N1=N-1, sumq(N1,R1), R=R1+N*N*N.