Подскажите, дано число, нужно найти его цифровой корень (цифровой корень это суммирование цифр числа, затем цифр получившегося числа, пока эта сумма не станет цифрой). Программу, то я написала:

проблема в том, что нужно сделать через рекурсивную функцию, а у меня с рекурсией очень плохо,
Может кто - нибудь подправит ;-(

Так:

function root(x: integer): integer;
var s: integer;
begin
  if x < 10 then root := x
  else begin
    s := 0;
    while x > 0 do begin
      inc(s, x mod 10);
      x := x div 10;
    end;
    root := root(s);
  end
end;

var n: integer;
begin
  readln(n);
  writeln( root(n) );
end.

?

Спасибо,
Volvo, ты просто супер!

Levetra From Canada