Так как язык не указан, приведу пример на 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).
Ф. И. О. Львов Вадим Анатольевич
Дата рождения 06.01.2000 год Гражданство российское Пол мужской
Место рождения ст.Должанская Ейского района
Дом. адрес: ст.Должанская, улица Ленина, 216
Паспорт 0313 №508700 выдан 15.01.2014 ОУФМЦ по Краснодарскому
краю в Ейском районе
Место учебы: муниципальная бюджетная общеобразовательная
организация средняя общеобразовательная школа №26 ст.Должанской
муниципального образования Ейский район
Цель составления резюме: участие в конкурсе муниципального этапа
Первого Всероссийского конкурса общеобразовательных организаций
России, развивающих ученическое самоуправление
(Впиши свою имя и т.д.)
Объяснение:
Если это насчет Scratch то ПЕРО
Объяснение: