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

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

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

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

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

Question

Информатика

Зинуша

6 июля, 00:48

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

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

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

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

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

+3

Ответы (1)

Знаете ответ на вопрос?

Вивиана · 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.