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

@Federiko · Регистрация: 19.10.2013

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

Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две задачи.
ТОЛЬКО ПОЖАЛУЙСТА ПРОШУ НАПИШИТЕ ПОНЯТНО,ЧТОБЫ МОГ ПОНЯТЬ 10 Классник.пожалуйста.

2)Напишите рекурсивную функцию нахождения суммы цифр натурального числа.
Формат входных данных
Входной файл содержит единственное целое число 0 <= x <=1000000000.
Формат выходных данных
Выходной файл должен содержать единственное число - ответ на задачу.

@Jener · 02.12.2013, 06:16

Pascal

uses
  crt;
function SumNum(s : string):integer;
begin
  if length(s) = 1 then SumNum := ord(s[1])-ord('0')
  else SumNum := SumNum(Copy(s,1,length(s)-1)) + ord(s[length(s)]) - ord('0');
end;
var 
  f1, f2 : text;
  s : string;
begin
  clrscr;
  assign(f1,'Input.txt');
  {$i-}
  reset(f1);
  {$i+}
  if IOResult<>0 then begin
    writeln('Input.txt not found.');
    exit;
  end;
  readln(f1,s);
  assign(f2,'Output.txt');
  rewrite(f2);
  str(SumNum(s),s);
  writeln(f2,s);
  close(f1);
  close(f2);
  readln;
end.

@Puporev · 02.12.2013, 07:22

Pascal

function Summ(n:longint):byte;
begin
if n<10 then Summ:=n
else Summ:=Summ(n div 10)+n mod 10;
end;
var f1,f2:text;
    n:longint;
begin
assign(f1,'Input.txt');
reset(f1);
read(f1,n);
assign(f2,'Output.txt');
rewrite(f2);
writeln(f2,Summ(n));
close(f1);
close(f2);
end.

@Federiko 0 / 0 / 2 Регистрация: 19.10.2013 Сообщений: 58
		1
	Рекурсивная функция нахождения суммы цифр числа 30.11.2013, 21:29. Показов 1459. Ответов 2 Метки нет (Все метки) Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две задачи. ТОЛЬКО ПОЖАЛУЙСТА ПРОШУ НАПИШИТЕ ПОНЯТНО,ЧТОБЫ МОГ ПОНЯТЬ 10 Классник.пожалуйста. 2)Напишите рекурсивную функцию нахождения суммы цифр натурального числа. Формат входных данных Входной файл содержит единственное целое число 0 <= x <=1000000000. Формат выходных данных Выходной файл должен содержать единственное число - ответ на задачу. 0

Опции темы

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

Решение