Вычислить сумму цифр суммы цифр заданного натурального числа используя рекурсивный алгоритм

@Николайчик · Регистрация: 23.11.2014

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

Вычислить сумму цифр суммы цифр заданного натурального числа используя рекурсивный алгоритм.

Входные данные:
Во входном потоке задано единственное натуральное число N (N <= 2000000000)

Выходные данные:
В выходной поток вывести единственное целое число.

Пример входного файла (input.txt):
12345
Пример выходного файла (output.txt):
6

Pascal

var n:longint;
function sum(n:longint):longint;
var a,t:longint;
begin
t:=0; a:=0;
while(n <>0) do
begin
a:=n mod 10;
t:=t+a;
n:=n div 10;
end;
sum:=t;
end;
begin
read(n);
n:=sum(n);
write(sum(n));
end.

Помогите исправить ( В программе обнаружено запрещенное служебное слово while, компиляция невозможна.)

@Sergio Leone · 09.05.2015, 23:18

Сообщение от Николайчик

В программе обнаружено запрещенное служебное слово while, компиляция невозможна.

Николайчик, да не может того быть!
проверь, ты точно в Pascal ABC пробуешь этот код.
я себе программу скопировал в Pascal ABC - всё работает! (хотя, код, конечно, не красивый...)

@Joy · 10.05.2015, 05:36

через рекурсию:

Pascal

function rec(n:longint):longint;
begin
  if n>0 then rec:=n mod 10+rec(n div 10) else rec:=0;
end;
var
  n:longint;
begin
  write('n=');readln(n);
  writeln('сумма цифр:',rec(n));
end.

@Puporev · 10.05.2015, 06:12

Сообщение от Николайчик

используя рекурсивный алгоритм.

Сообщение от Николайчик

В программе обнаружено запрещенное служебное слово while

Естественно, для рекурсивного алгоритма в понятии проверочной системы оно запрещенное, как и for, repeat

@Sergio Leone · 10.05.2015, 10:42

Сообщение от Joy

через рекурсию:

неверно.
пропустили момент - в условии сказано

Вычислить сумму цифр суммы цифр

попробуйте вашу программу на исходном примере, получите не 6 (как надо), а 15

Но доделать очень просто - нужно рекурсивно вызывать процедуру получения суммы цифр, пока не получится число меньше 10:

Pascal

function rec(n:longint):longint;
begin
  if n>0 then rec:=n mod 10+rec(n div 10) else rec:=0;
end;
 
function sumrec(n:longint):longint;
begin
  if n>10
    then sumrec := sumrec(rec(n))
    else sumrec := rec(n)
end;
 
var
  n:longint;
begin
  write('n=');readln(n);
  writeln('сумма цифр:',sumrec(n));
end.

@Puporev · 10.05.2015, 11:37

Сообщение от Николайчик

Вычислить сумму цифр суммы цифр заданного натурального числа

Это видимо значит что функцию нужно вызвать дважды, а не пока результат больше 10. Это не про цифровой корень.

@Николайчик · 10.05.2015, 12:01 **[ТС]**

Сообщение от Sergio Leone

неверно.
пропустили момент - в условии сказано
попробуйте вашу программу на исходном примере, получите не 6 (как надо), а 15

Но доделать очень просто - нужно рекурсивно вызывать процедуру получения суммы цифр, пока не получится число меньше 10:

Pascal

function rec(n:longint):longint;
begin
  if n>0 then rec:=n mod 10+rec(n div 10) else rec:=0;
end;
 
function sumrec(n:longint):longint;
begin
  if n>10
    then sumrec := sumrec(rec(n))
    else sumrec := rec(n)
end;
 
var
  n:longint;
begin
  write('n=');readln(n);
  writeln('сумма цифр:',sumrec(n));
end.

Не получилось чтобы >10. Второй тест не прошел.

Добавлено через 1 минуту

Сообщение от Puporev

Это видимо значит что функцию нужно вызвать дважды, а не пока результат больше 10. Это не про цифровой корень.

В смысле, можете показать?

@Puporev · 10.05.2015, 13:19

Сообщение от Николайчик

сумму цифр суммы цифр

Делаешь одну функцию нахождения суммы цифр числа и 2 раза вызываешь

Pascal

1
2
3

n:=sum(n);
n:=sum(n);
write(n);

@Николайчик · 10.05.2015, 14:33 **[ТС]**

Сообщение от Puporev

Делаешь одну функцию нахождения суммы цифр числа и 2 раза вызываешь

Pascal

1
2
3

n:=sum(n);
n:=sum(n);
write(n);

Так?

Pascal

function sumrec(n:longint):longint;
begin
  if n>10
    then sumrec := sumrec(rec(n))
    else sumrec := rec(n)
end;
 
var
  n:longint;
begin
 n:=sum(n);
n:=sum(n);
write(n);
end.

@Puporev · 10.05.2015, 15:15

Не по теме:

Сообщение от Николайчик

Так?

Сказал бы я как, да обидишься...

@Sergio Leone · 10.05.2015, 19:23

Сообщение от Николайчик

Так?

нет, не так.

забудьте про мою sumrec! (она как раз суммирует пока не останется число меньше 10 - т.е. ищет цифровой корень).

попробуйте такой код:

Pascal

function rec(n:longint):longint;
begin
  if n>0 then rec:=n mod 10+rec(n div 10) else rec:=0;
end;
var
  n:longint;
begin
  write('n=');readln(n);
  writeln('сумма цифр:',rec(rec(n)));
end.

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	09.05.2015, 23:18	2
	Сообщение от Николайчик В программе обнаружено запрещенное служебное слово while, компиляция невозможна. Николайчик, да не может того быть! проверь, ты точно в Pascal ABC пробуешь этот код. я себе программу скопировал в Pascal ABC - всё работает! (хотя, код, конечно, не красивый...) 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	10.05.2015, 06:12	4
	Сообщение от Николайчик используя рекурсивный алгоритм. Сообщение от Николайчик В программе обнаружено запрещенное служебное слово while Естественно, для рекурсивного алгоритма в понятии проверочной системы оно запрещенное, как и for, repeat 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	10.05.2015, 11:37	6
	Сообщение от Николайчик Вычислить сумму цифр суммы цифр заданного натурального числа Это видимо значит что функцию нужно вызвать дважды, а не пока результат больше 10. Это не про цифровой корень. 0

@Puporev
	10.05.2015, 15:15 #10
	Не по теме: Сообщение от Николайчик Так? Сказал бы я как, да обидишься... 0

	10.05.2015, 19:23