Войти Регистрация Спроси ai-bota

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна 0), проверить делится ли оно на каждую из своих цифр.

Показать ответ

Ответ:

бекзат2008

23.09.2020 08:01

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

0,0(0 оценок)

Популярные вопросы: Информатика

zarya0207

28.05.2023 17:57

Вычислить полярные координаты точки, имеющую следующие декартовые координаты: x=25,27, y=-1,17. Написать универсальную подпрограмму, преобразующую произвольные декартовы...

Misha01923

27.09.2022 10:22

Терміново, завдання мовою програмування Python . Складіть програму розв язання задачі згідно з варіантом (врахувати, що при деяких значеннях х обчислити значення функції...

kik678

22.05.2022 01:57

Напишите программный код для задачи в c++задача: пользователь вводит 3 числа.задача программы вывести пользователю-есть ли одинаковые числа-если есть такие числа, вывести...

asdf42

09.09.2020 04:20

В таблице «Климат», используя фильтрацию данных, найти: страны со средней температурой июля 20 0С; со средней температурой января 28 0С; страны, в которых среднегодовой...

Sasha77999

04.03.2023 03:50

9 задание там постройте графики двух разных функций и найти их пересечения...

veronika56454

30.06.2022 12:39

От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: -.--.--.. при передаче радиограммы было потеряно разбиение...

Vladisimus

19.09.2022 03:37

Втаблице запросы к поисковому серверу. расположите номера запросов в порядке убывания количество страниц, которые найдет поисковый сервер по каждому запросу. для обозначения...

taykinamatilda

29.08.2021 08:43

Дана программа: program n_5; var a, b, с: integer; ans: boolean; begin write ( введите значения a, b, dl, d2 ); readln (a, b, dl, d2); ans: = (a b) and (dl=d2); writeln...

flymisflymis

27.09.2022 09:29

Дима ходит из дома на стадион пешком со скоростью 4 км/ч. если он поедет на стадион на велосипеде со скоростью 12 км/ ч, то он приедет на 20 минут раньше, чем обычно....

gerasimovichninka

27.09.2022 09:29

Шаровое звездное скопление галактика звездная ассоциация,созвездие, рассеянное звездное скопление. вычеркните лишнее в этом списке и объясните свой ответ. ,...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку