рекурсивная функция определения числового корня числа(Pascal)

[fbsd]

Приветствую.
Задача: написать рекурсивную ф-ю, определяющую числовой корень числа.
Н: 654231=21=3

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

program rekyr;
uses wincrt;
var chislo:longint;
{==================}
function Sum(a:longint):byte;
 begin
   if (a<10)
    then Sum:=a
      else Sum:=a mod 10+Sum(a div 10)
 end;
{====================}
begin
  clrscr;
  write('chislo=');
  readln(chislo);
  writeln('Summa cifr=',Sum(chislo));
  readln
end.

благодарю=)

[Chudo4258]

числовой корень числа

это что такое? чет про такое я не слыхал. Можете поподробней описать.

[fbsd]

ну, вот
ввожу число 6222345
сумма цифр 24
сумма цифр 6 - это ч.к.ч. исходного числа

хотя если признаться, то я такого понятия и сам не встречал=))
просто задание поставили и пояснили
вот не пойму как мне сделать N-ое вычисление суммы цифр

[Chudo4258]

Вот, могу предложить такой вариант, но вас наверно такой вариант не устроит...

program Project1;
var chislo:longint;
function Sum(a:longint):byte;
 begin
   if (a<10)
    then Sum:=a
      else Sum:=a mod 10+Sum(a div 10);
 end;
{====================}

begin
  write('chislo=');
  readln(chislo);
  while chislo>9 do
   chislo:=Sum(chislo);
  writeln(chislo);
  readln
end.

[fbsd]

благодарствую, попробую ф-ей реализовать