Задача по информатике на Free Pascal

Question

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

Анна Манжос · Accepted Answer

ну.. . пускай. 
только вот задачи-то не видать, есть ли странное (по крайней мере, для меня) утверждение

Елена Петрова · Answer

while( n>10 ) do begin 
s := 0; 
while( n > 0) do begin s := s + n mod 10; n := n div 10; end; 
n := s; end;