Для числа подсчитывается сумма его цифр. Если результат превышает 9, то для результата...

Question

Для числа подсчитывается сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Выполните расчеты для введенного с клавиатуры не более чем 50-значного числа. Например, если исходное число 3247598, то результат 2.

Comments

Написать программу.

---

На каком языке программирования?

---

Лучше на Pascal.

Answer 1

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

Comments

Спасибо! А можно еще решить вот это? https://znanija.com/task/29876635