1.Проблема при решении задания с использыванием цикла repeat.

[1man]

Доброго времени суток! Долгое время не справляюсь с данной задачей. Намерен "добить" до конца, однако решить полноценно не получается.


Формулировка: Дана последовательность состоящая из n целых чисел.. Для всех симметричных чисел последовательности найти цифровой корень по алгоритму: Сложить все цифры введенного числа, затем его суммы и так повторять столько раз, пока с число не станет однозначным – это и будет цифровым корнем исходного числа.
Например: n=34697
S1=3+4+6+9+7=29; S2=2+9=11; S3=2. 2 - цифровой корень числа n.

-С определением симметричности числа проблем никаких.
-Основная проблема с вычислением цифрового корня по алгоритму.

Код программы определения цифрового корня(пробовал для одного числа):

program Project;

program Summa;

{$APPTYPE CONSOLE}

uses
SysUtils;


var n,s,s1: integer;

begin
write('BBedite 4iclo');
readln(n);
n:=abs(n);
S:=0;
begin
repeat
s:= (n mod 10);
n:= (n div 10);
s:=n;
until s<10;
end;
writeln ('S=',s);
readln;
end.

В итоге программа не работает должным образом. Какие могут быть соображения на эту тему? Или лучше сразу вводить код для последовательности чисел? Заранее благодарен за помощь.

[zhan313]

S1:=0;
repeat
s:= (n mod 10);
n:= (n div 10);
s1:=s1+s;
if n<10 then begin s1:=s1+n; n:=s1; s1:=0; end;
s:=n;
until s<10;

[1man]

To->zhan313
Благодарю!