
Так как язык не указан, приведу пример на 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)Бюджетный/Офисный
AMD Athlon 200ge
3.2ггц
8гб DDR 4
500gb
Встроенный-Vega 3,либо дискретный RX 550
4
Usb 3d sound
Samsung s25r350
24
1920x1080p full HD
5мс
2)Середній пк:
AMD ryzen 3 3100
3.6(3.9)ггц
16gb
1TB
Rx 580
8
Usb 3d sound
MSI optix 27
27
1920x1080 full HD
1мс
3)Вгровий:
Ryzen 9 3950x
3.5(4.7)ггц
32гб
3тб
RTX 2080 ti Super gaming(msi)
8
Usb 3d sound
Acer Predator 27
27
3840x2160 4k
4мс
Должно пойти (Последний игровой т.к корреспондент может монтировать видео и рендерить.)
Ггц в скобках это чястота в игровом режиме
Объяснение: