Пример 6. Составим функцию, которая вычисляет сумму цифр числа. Будем рассуждать так: сумма цифр числа n равна значению последней цифры плюс сумма цифр числа div(n, 10). Сумма цифр однозначного числа равна самому этому числу, это условие окончания рекурсии. Получаем следующую функцию:
function sumDig(n:integer):integer;
var sum: integer;
begin
sum:=n mod 10;
if n>=10 then
sum:=sum+sumDig (n div 10);
sumDig:= sum
end;
Нужно максимально понятно обьяснить, как так получилось. 10 класс, Паскаль