Числа кратные и заканчивающиеся

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 нед., 4 дн. назад.

  • Автор
    Сообщения
  • #5407
    @admin

    Вывести на экран числа, не превосходящие 700, кратные 3 и заканчивающиеся на 4.

    Решать задачу можно по-разному. Например, перебирать отдельно сотни, десятки и единицы в известных диапазонах (сотен 6, десятков 10, единица одна). Затем из полученных разрядов можно получить число, остается лишь проверить его кратность.

    Такая программа может выглядеть так:

    число(Число):-
        between(0, 6, Сотни),
        between(0, 9, Десятки),
        Единицы is 4,
        Число is Сотни*100 + Десятки*10 + Единицы,
        0 is Число mod 3.

    С другой стороны, можно сразу генерировать число целиком — в диапазоне от 0 до 700. Остается получить последнюю цифру (остаток от деления на 10) и проверить кратность:

    число(Число):-
        between(0, 700, Число),
        4 is Число mod 10,
        0 is Число mod 3.

    Результаты работы в обоих случаях будут одинаковые:

Для ответа в этой теме необходимо авторизоваться.