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

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

Задать свой вопрос
Стефания Кушашникова
Написать программку.
Marina Rozner
На каком языке программирования?
Серега Зариков
Превосходнее на Pascal.
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 sgt;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

Валерия Гаслова
Спасибо! А можно еще решить вот это? https://znanija.com/task/29876635
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт