Начальное значение факта-переменной n равно 0. Определение предикатов fruit и print имеет вид:fruit(1, "apple"). fruit(2, "pear"). print() :- repeat(), n := n + 1, fruit(_, X), write(X), nl, n = 2, !. print(). Напишите название фрукта, которое будет напечатано последним при вызове цели print():

Правильный ответ:

• # В результате вызова в PIE цели L = [[1] | _], L = [_, [], 2] переменная L примет значение
• # Определение предикатов male и parent имеет вид: male(tom). male(bob). parent(tom, mary). parent(tom, ann). Одинаковое ли количество решений имеют цели male(X), parent(X, _) и male(X), not(not(parent(X, _))):
• # Определение предикатов fruit и print имеет вид: fruit(1, apple). fruit(2, pear). print() :- fruit(N, X), fruit(_, Y), write(X), nl, write(Y), nl, N = 2, !. print(). Напишите название фрукта, которое будет напечатано последним в результате вызова цели print():
• # Определение предиката reverse имеет вид:reverse([], L, L). reverse([A | L1], L2, L) :- reverse(L1, [A | L2], L). В результате вызова reverse([1, 2], [3], L) переменная L примет значение
• # Определение предикатов arc, cont и path имеет вид: arc(1, 2). arc(1, 3). arc(3, 4). arc(2, 4). cont([X | L], [Z, X | L]):- arc(X, Z), not(isMember(Z, L)). path([[Y | L] | _], Y, [Y | L]):- !. path([P | PL], Y, R):- findall(P1, cont(P, P1), L1), append(PL, L1, PL1), path(PL1, Y, R). Укажите решение для цели path([[1]], 4, P) .