Условие задачи
Написать на языке Пролог-Д базу знаний, описывающую вычисление суммы квадратов чисел натурального ряда.
Ответ
Код программы
СЛОЖЕНИЕ(X,Y,Z):-УМНОЖЕНИЕ(X,1,Y,Z);
ВЫЧИТАНИЕ(X,Y,Z):-УМНОЖЕНИЕ(1,Y,Z,X);
КВАДРАТ(X,Y):-УМНОЖЕНИЕ(X,X,0,Y);
СУММА(1,1):-!;
СУММА(N,S):-ВЫЧИТАНИЕ(N,1,M),СУММА(M,L),КВАДРАТ(N,P),СЛОЖЕНИЕ(L,P,S);
?СУММА(1,S);
?С...