Предмет: Информатика,
автор: Аноним
Для числа подсчитывается сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Выполните расчеты для введенного с клавиатуры не более чем 50-значного числа.
Например, если исходное число 3247598, то результат 2.
Goose4u:
На каком языке программирования?
Ответы
Автор ответа:
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
Интересные вопросы
Предмет: Алгебра,
автор: coneska123
Предмет: Химия,
автор: stepan4ikmalov75
Предмет: Алгебра,
автор: nvasyov1234565
Предмет: Алгебра,
автор: iPetr17
Предмет: Литература,
автор: амир143