• Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль.
    Помогите пожалуйста. Принцип работы должен быть такой: берем число, например 24, считаем сумму его цифр 2+4=6 =>вычитаем 24-6=18 => 1+8=9 => 18-9 => 9-9=0

Ответы 4

  • т.е с трехзначными числами программа некорректно работает? Это существо портит картину :( Программа должна работать с любимым кол-вом цифр в числе
  • ну тогда алгоритм сложнее будет
    • Автор:

      oscar834
    • 6 лет назад
    • 0
  • Если вас не затруднит, то, пожалуйста, сделайте его сложнее :)
    • Автор:

      rosario35
    • 6 лет назад
    • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years