Вычислить сумму кубов чисел от 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.

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы