Вопрос есть в коллекциях
Данная программа:сумма(X,Y):- integer(X), X<10, Y is X.сумма(X,Y):- integer(X), X1 is X//10, сумма(X1,Y1), Z is X mod 10, Y is Y1+Z.печать_суммы:- write('Введите число (в конце точка): '), read(X), nl, сумма(X,Y), write('Сумма цифр числа '), write(X), write(' равна '), write(Y), nl.печатает:
- сумму всех цифр
- сумму всех цифр вычисленного числа
- сумму всех цифр введенного с клавиатуры числа