Подскажите, дано число, нужно найти его цифровой корень (цифровой корень это суммирование цифр числа, затем цифр получившегося числа, пока эта сумма не станет цифрой). Программу, то я написала:
Так:
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