
Shoabbama
7 год назад
Напишите рекурсивную функцию вычисления суммы цифр натурального числа.
Формат входных данных
На вход ваша программа получает одно натуральное число n (n<216)(n<216).
Формат выходных данных
Выведите одно число — сумму цифр числа n.
ОТВЕТЫ

Артёмович
Jul 16, 2019
Var
n: int64;
function f(n: int64): int64;
begin
if(n gt; 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
function f(n: int64): int64;
begin
if(n gt; 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
44
Смежные вопросы: