Задать вопрос
10 октября, 20:56

Решить с помощью циклических алгоритмов (простых и вложенных), используя операции целочисленной арифметики.

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести на экран "нет".

+2
Ответы (1)
  1. 10 октября, 22:22
    0
    Var n, i, a, p, s, f:integer;

    begin

    write ('n = ') ;

    readln (n) ;

    f:=0;

    for i:=1 to n-1 do

    begin

    p:=1; s:=0;

    a:=i;

    while a>0 do

    begin

    p:=p * (a mod 10) ;

    s:=s + (a mod 10) ;

    a:=a div 10;

    end;

    if p=s then begin write (i,' ') ; f:=1; end;

    end;

    if f=0 then writeln ('нет') ;

    end.

    Пример:

    n = 150

    1 2 3 4 5 6 7 8 9 22 123 132
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решить с помощью циклических алгоритмов (простых и вложенных), используя операции целочисленной арифметики. Дано натуральное число N. Найти ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово "Нет"
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)
1) Найти сумму нечетных чисел на интервале [-30; 40]. 2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) Найти произведение чисел кратных 11 на интервале [-10; 20]. 4) Последовательно вводятся N чисел. Найти их произведение.
Ответы (1)