Ответы
Ответ дал:
0
begin
var s := (ReadInteger()).ToString;
repeat
var sum := 0;
for var i := 1 to s.Length do
sum += s[i].toDigit;
s := sum.ToString;
until s.Length = 1;
s.Println;
end.
Приложения:
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад