Рекурсивная функция нахождения суммы цифр натурального числа

@ягодка · Регистрация: 04.04.2010

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

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

Vovan-VE · 17.06.2010, 18:35

Сумма цифр числа из N цифр есть первая цифра + суммы всех остальных цифр (если еще остались)

Pascal

function DigitSum(N:string):Longint;
var L:Integer;
    R:Longint;
    c:Char;
begin
    L := Length(N);
    R := 0;
    if L>0 then begin
        c := N[1];
        if (c>='0') and (c<='9') then R := Ord(c)-Ord('0');
        if L>1 then R := R + DigitSum(Copy(N, 2, L-1));
    end;
    DigitSum := R;
end;
 
var s:string;
begin
    write('N=');
    readln(s);
    writeln('sum=', DigitSum(s));
    readln;
end.

@ягодка 0 / 0 / 0 Регистрация: 04.04.2010 Сообщений: 34
		1
	Рекурсивная функция нахождения суммы цифр натурального числа 17.06.2010, 17:58. Показов 4366. Ответов 1 Метки нет (Все метки) Написать рекурсивную функцию нахождения суммы цифр любого натурального числа. 0

Опции темы

Рекурсивная функция нахождения суммы цифр натурального числа

Решение