цифровой корень числа Опции

[Yaroslav]

помогите решить задачу!!!найти цифровой корень числа через цикл while!!!

[Yaroslav]

Yaroslav
В следующий раз хотя бы точность задавайте...

Код

const
 eps = 0.000001;

var
 x, x0, x1: real;
begin
 write('x = '); readln(x);
 x1 := 1;
 while true do
   begin
     x0 := x1; x1 := 0.5 * (x0 + x/x0);
     if abs(x0 - x1) <= eps then break
   end;

 writeln('sqrt(x) = ', x0:15:10)
end.

Помогите пожалуйста найти цифровой корень числа через цикл while на Pascal!!!
Цифровой корень не является арифметическим!
Он высчитывается так: например:
Для числа 23456 цифровой корень высчитывается так:
2+3+4+5+6=20
2+0=2
Цифровой корень равен 2



Или для 456
4+5+6=15
1+5=6
Цифровой корень равен 6


Или для 678955
6+7+8+9+5+5=40
4+0=4
Цифровой корень равен 4