Для числа подсчитывается сумма его цифр. если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. выполните расчеты для введенного с клавиатуры не более чем 50-значного числа. например, если исходное число 3247598, то результат 2.
var a:string;
function sum(num:string):integer;
var i,s,k,er:integer; st:string;
begin
s:=0;
for i:=1 to length(num) do
begin
val(num[i],k,er);
s:=s+k;
end;
if s>9 then begin str(s,st); sum:=sum(st); end
else sum:=s;
end;
begin
readln(a);
writeln('s=',sum(a));
end.
Пример:
99999999999
s=9