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

Question

Информатика

Фросюшка

14 апреля, 09:07

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

+2

Ответы (1)

Знаете ответ на вопрос?

Каздоя · 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.