Question

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

Answer 1

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.