Так как язык не указан, приведу пример на 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).3
Объяснение:
Ввод a и b
Если одно из условий a > 10 или b < 10 верно (да), то вывод ДА
в противном случае (когда оба условия не верны) вывод НЕТ
a = -10 b = 2
-10 > 10 (нет)
2 < 10 (да)
вывод ДА
a = 1 b = 2
1 > 10 (нет)
2 < 10 (да)
вывод ДА
a = 10 b = 10
10 > 10 (нет)
10 < 10 (нет)
вывод НЕТ
a = 10 b = 11
10 > 10 (нет)
11 < 10 (нет)
вывод НЕТ
a = 11 b = 10
11 > 10 (да)
10 < 10 (нет)
вывод ДА
a = 11 b = 2
11 > 10 (да)
2 < 10 (да)
вывод ДА
a = -12 b = -11
-12 > 10 (нет)
-11 < 10 (да)
вывод ДА
a = -10 b = -10
-10 > 10 (нет)
-10 < 10 (да)
вывод ДА
a = 1 b = 15
1 > 10 (нет)
15 < 10 (нет)
вывод НЕТ
wzyx
Объяснение:
print ("x y z w F")
for x in range (2):
for y in range (2):
for z in range(2):
for w in range(2):
if int((not(x == (not y)))or((x and w)==(z and not w)))==0:
print(x,y,z,w,int((not(x == (not y)))or((x and w)==(z and not w))))
Переменная 3 - y (последняя строка 1 0 1 1 0)
Переменная 2 - z (первая строка 0 1 1 0 0)
Переменная 1 - w (третья строка 1 0 1 0 0)
Переменная 4 - x