Дано естественное число N. Отыскать меньшее число М (N amp;lt; M

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

Задать свой вопрос
1 ответ
Var M, N, sumN: integer;
begin
  readln(N);
  M := N;
  sumN := 0;
  while (M gt; 0) do
  begin
    inc(sumN, M mod 10);
    M := M div 10;
  end;
  M := (N div sumN + 1) * sumN;
  if (M lt; 2*N) then
    writeln(M)
  else
    writeln('нет')
end.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт