Pascal. Задача 7-2

Пользователь вводит число. Вывести сумму цифр этого числа, используя рекурсию.

Решение

function digits_sum(n : integer) : integer;
begin
  if n < 10 then
    result := n
  else
    result := n mod 10 + digits_sum(n div 10);
end;

var
  n : integer;
begin
  Write('Введите число: ');
  Readln(n);
  Writeln('Сумма цифр числа: ', digits_sum(n));  
end.