Для числа подсчитывается сумма его цифр. если результат - вопрос №93658459 от Джейн2005 30.05.2021 06:55

Question

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

Джейн2005 · Answer

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