Задания.ру
Анонимно
4 часа назад

Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль.
Помогите пожалуйста. Принцип работы должен быть такой: берем число, например 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.

Новые вопросы по Информатике

У белки есть робот, который умеет выполнять 2 действия: А) Прибавлять 1 Б) Умножать на 2 Каким алгоритмом можно получить из числа 3 число 30? Выберите один ответ: a. АБАББ b. ББААБ c. БАБАБА d. Б...
5 - 9 классы
1 минута назад
В паскале abc помогите написать программу. Дано натуральное число N. С клавиатуры вводятся N дат рождения в формате DD.MM.YYYY (например, 17.04.2014). Напечатать название месяца, в котором больше в...
10 - 11 классы
3 минуты назад
Если маска подсети 255.255.255.240 и ip-адрес компьютера в сети 192.168.156.235 то номер комьпьютера в сети равен
10 - 11 классы
7 минут назад
Помогите!!! Как построить информационную модель комнаты?
5 - 9 классы
7 минут назад
Как расчитать по функции ГОД возраст человека есчли известен текущий год и дата рождения, помогите пжл программа ексель
10 - 11 классы
10 минут назад