Для числа подсчитывается сумма его цифр. если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. выполните расчеты для введенного с клавиатуры не более чем 50-значного числа. например, если исходное число 3247598, то результат 2.
Krutoyabrikos
2
29.09.2019 09:03
0
Другие вопросы по теме Информатика
Notch
18.02.2021 09:24
taitpaev2003
18.02.2021 09:22
sharopoamir05
18.02.2021 09:21
Grayr2005
18.02.2021 09:21
Тупойшкольник0
18.02.2021 09:16
maksitron
18.02.2021 09:13
lpozzz
18.02.2021 09:08
morfisleep
18.02.2021 09:08
лиза22110
18.02.2021 09:07
Популярные вопросы
- Почему в индии сложились своеобразные верования...
3 - Отрезок, соответствующий 2/5 кг. начертите отрезок ef, соответствующий...
3 - Составить 10 предложений на тему зимние забавы...
1 - 8x + (5-3x) = 5 решить (уравнение)...
1 - (2xy-1)(2xy+1) представить в виде многочлена...
2 - Написать эссе на тему как достичь жизненного успеха?...
3 - Напишите рассказ о персдиской державе от имени (царя, раба, вельможи от...
3 - Какое наклонение не имеет форму времени? а) изъявительное б) повелительное...
2 - Кто в песне про царя ивана васильевича .является настоящим героем ?...
1 - Как можно заменить: поставить на первый план свои личные интересы...
3
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