Так как язык не указан, приведу пример на 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).Поделитесь своими знаниями, ответьте на вопрос:
1. задайте конечное множество. a. военных конфликтов между россией и германией b. военных конфликтов между россией и украиной 2. задайте безконечное множество a. четных положительных чисел b. равнобедренных треугольников 3. изобразите при кругов эйлера отношения между множеством животных. 4. что является пересечением множеств примеры пересечения\. a. точек треугольника и точек окружностей описанных около этого треугольника b. уравнений и неравенств 5. что является объединением множеств примеры объединения\. a. осажденных и освобожденных городов во 2 мировую войну b. чисел кратных 3 и всех нечетных чисел 6. что является дополнением множеств примеры дополнения\. a. выходных дней до всех дней недели b. квадратов до прямоугольников
К первому поколению относят ламповые машины 1940-х годов, которые пришли на смену табуляторам. Скорость счета у них доходила до 20 тысяч операций в секунду. Данные вводились с перфокарт и перфоленты
2.Технологии хранения данных активно совершенствуются со времен появления первых компьютеров. Еще вчера мы пользовались 1,44-мегабайтными дискетами, а сегодня в продаже можно найти 256-гигабатные флеш-накопители. А ведь это далеко не предел. Пока инженеры трудятся над созданием новых, более прогрессивных носителей информации, мы вспоминаем, как повлияли на компьютерную индустрию перфокарты, магнитные ленты и форматы CD и DVD