От данного числа вычесть сумму цифр этого числа

@Zavet · Регистрация: 01.10.2012

Author24 — интернет-сервис помощи студентам

Задано натуральное число Н. От данного числа вычтем сумму цифр этого числа, от полученного числа опять вычтем сумму цифр и т.д. Данную операцию будем продолжать до тех пор, пока полученное число положительно. Сколько раз будем выполнять данную операцию?

Входные данные:
Во входной строке находится число Н, которое не превышает 2000000000.

Выходные данные:
Количество выполненных операций.

Пример входных данных: 23 Пример выходных данных: 3

@Reveng · 05.10.2012, 21:24

Pascal

var
  n, n1, sum : longint; 
  i : integer;
begin
Write('N = '); Readln(n);
i := 0;
while n > 0 do
 begin
 sum := 0;
 n1 := n;
 while n1 > 9 do
  begin 
   sum := sum + (n1 mod 10);
   n1 := n1 div 10;
  end;
  sum := sum + n1;
  n := n - sum;
  inc(i); 
 end;
Writeln('Операция выполнялась ', i, ' раз(а)');  
end.

@Zavet 0 / 0 / 0 Регистрация: 01.10.2012 Сообщений: 32
		1
	От данного числа вычесть сумму цифр этого числа 05.10.2012, 17:36. Показов 2228. Ответов 1 Метки нет (Все метки) Задано натуральное число Н. От данного числа вычтем сумму цифр этого числа, от полученного числа опять вычтем сумму цифр и т.д. Данную операцию будем продолжать до тех пор, пока полученное число положительно. Сколько раз будем выполнять данную операцию? Входные данные: Во входной строке находится число Н, которое не превышает 2000000000. Выходные данные: Количество выполненных операций. Пример входных данных: 23 Пример выходных данных: 3 0

	05.10.2012, 21:24

Опции темы

От данного числа вычесть сумму цифр этого числа

Решение