Дано натуральное число n. найти наименьшее число м (n < m < 2n) которое делится на сумму цифр числа n (без остатка). если такого числа нет, то вывести слово «нет». пример. n = 12 345, м = 12360. число 12 360 делится на число 15 — сумму цифр числа n
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.
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.