Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа N (без остатка). Если такого числа нет, то вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N

1

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2014-03-25T13:35:08+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var M, N, sumN: integer;
begin
  readln(N);
  M := N;
  sumN := 0;
  while (M > 0) do
  begin
    inc(sumN, M mod 10);
    M := M div 10;
  end;
  M := (N div sumN + 1) * sumN;
  if (M < 2*N) then
    writeln(M)
  else
    writeln('нет')
end.