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

Question

Информатика

Давыд

17 января, 03:32

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

+5

Ответы (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.