Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль. Помогите пожалуйста. Принцип работы должен быть такой: берем число, например...
Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль.
Помогите пожалуйста. Принцип работы должен быть такой: берем число, например 24, считаем сумму его цифр 2+4=6 =>вычитаем 24-6=18 => 1+8=9 => 18-9 => 9-9=0
Гость
Ответ(ы) на вопрос:
Гость Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;
writeln (k);
end.
Не нашли ответ?
Похожие вопросы