Данная программа:сумма(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.
печатает:
(Отметьте один правильный вариант ответа.)
Варианты ответа
сумму всех цифр
сумму всех цифр вычисленного числа
сумму всех цифр введенного с клавиатуры числа(Верный ответ)