profile
Опубликовано 5 лет назад по предмету Информатика от Moonl

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

  1. Ответ
    Ответ дан nelle987
    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.



Самые новые вопросы