Задать вопрос

Написать программу в Паскале Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.

+2
Ответы (1)
  1. 6 марта, 09:41
    0
    program zz1;

    var n, i, s, p, v, k:integer; / / задаем переменные целого типа

    begin

    write (' введите n '); / / вводим заданное количество чисел

    read (n);

    for i:=1 to n do / / организуем цикл, в котором переберем все числа от единицы до заданного n

    begin

    s:=i; p:=0; k:=0;

    while s > 0 do / / пока в числе есть цифры

    begin

    v:=s mod 10; / / получаем последнюю

    k:=k + 1; / / считаем ее

    if (v0) and (i mod v = 0) then p:=p+1; / / если число делится на цифру, то считаем

    s:=s div 10; / / отбрасываем цифру из числа

    end;

    if p = k then write (i,' ');

    end;

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Написать программу в Паскале Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр.
Ответы (1)
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Формат входных данных Задано единственное число N. Формат выходных данных Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.
Ответы (1)
Написать программу в паскале: Дано трехзначное число. Найти число, полученное перестановкой первой и третьей цифры заданного числа.
Ответы (1)
Найти все трёхзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
Ответы (1)
1) Написать программу, которая находит в массиве случайных символов первое вхождение заданного символа.
Ответы (1)