Так как язык не указан, приведу пример на 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).
Да, можно было.
2) Билл Гейтс написал свою первую программу на языке программирования Basic в 13 лет, и она называлась «Сапёр». - 0.
Да, в 13 лет и на Бейсике, но это были крестики-нолики.
3) Символом операционной системы Linux является кролик, потому что в детстве разработчика этой системы в зоопарке укусило именно это
животное. - 0. Символ Linux - пингвин Lilo.
4) В Швейцарии установлен один из дата-центров с множеством серверов, который подогревает воду в небольшом озере. - 1. Есть такой.
5) ФБР считает, что Одноклассники – лучшая площадка для общения террористов. - 0. ФБР считает, что это Твиттер.
Число 1010 в двоичной системе = 10 в десятичной системе.