Описать рекурсивную функцию DigitSum

@Wolfraim · Регистрация: 12.09.2010

Author24 — интернет-сервис помощи студентам

Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K, не используя оператор цикла.

@Домолаз · 22.03.2011, 00:00

Pascal

function rec(n:integer):integer;
begin
   if n=0 then
      rec:=0
   else
      rec:=rec(n div 10)+n mod 10;
end;
 
var
   n:integer;
begin
   readln(n);
   writeln(rec(n));
end.

@Wolfraim · 22.03.2011, 00:06 **[ТС]**

Спасибо, оказалось все проще, чем думал
rec:=rec(n div 10)+n mod 10

@Wolfraim 0 / 0 / 0 Регистрация: 12.09.2010 Сообщений: 25
		1
	Описать рекурсивную функцию DigitSum 21.03.2011, 23:31. Показов 3353. Ответов 2 Метки нет (Все метки) Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K, не используя оператор цикла. 0

@Wolfraim 0 / 0 / 0 Регистрация: 12.09.2010 Сообщений: 25
	22.03.2011, 00:06 [ТС]	3
	Спасибо, оказалось все проще, чем думал rec:=rec(n div 10)+n mod 10 0

Описать рекурсивную функцию DigitSum

Решение