Задать вопрос
3 декабря, 00:59

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

+4
Ответы (1)
  1. 3 декабря, 04:34
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа N (без остатка). Если такого числа нет, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы