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

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

• # Программа имеет вид: likes(mary, books). likes(bob, mary). likes(bob, books). Напишите решение, которое имеет цель likes(X, mary):
• # Определение предиката conc в PIE имеет вид:conc(d(A, B), d(B, C), d(A, C)). В результате вызова conc(d([1, 2 | X], X), d([2, 3], [4]), d(L, _)) переменная L примет значение
• # Определение предикатов friend и h имеет вид: friend(person(ann, 19), phone(1112233)). friend(person(bob, 18), phone(1112233)). friend(person(kate, 19), phone(4445566)). h(X) :- friend(person(X, Y), _), friend(person(Z, Y), _), X < Z. Напишите ответ на запрос h(X):
• # Определение предиката p имеет вид: p([father(robert, jackson)]). p([mother(ann, smith), father(thomas, smith)]). Напишите ответ на запрос p([father(_, X) | _]):
• # Определение предиката num имеет вид: num(X, X). num(X, Y) :- X > 0, X1 = X - 2, num(X1, Y). Сколько решений имеет цель num(5, X)?