Question

Напишите рекурсивную функцию вычисления суммы цифр натурального числа.

Формат входных данных

На вход ваша программа получает одно натуральное число n (n<216)(n<216).
Формат выходных данных

Выведите одно число — сумму цифр числа n.

Answer 1

var n: int64;
 function f(n: int64): int64;
begin
  if(n > 0) then f := f(n div 10) + (n mod 10);
end;
 begin
  readln(n);
write(f(n));
end.