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

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

• # В основу стандарта языка Пролог положен синтаксис
• # Определение класса b с интерфейсом b имеет вид: interface b properties a : integer. end interface b class b : b predicates counter : () -> integer. end class b implement b facts a : integer := 0. class facts n : integer := 0. clauses new():- n := n + 1. counter() = n. end implement b Какое число будет напечатано в результате вызова цели X = b::new(), X:a := 2, Y = b::new(), Y:a := X:a + 1, stdio::write(X:a+Y:a+b::counter())?
• # Определение предиката g имеет вид: g(0, R, R):- !. g(X, C, R):- X1 = X - 1, C1 = 2 * C + 1, g(X1, C1, R). Какое значение примет переменная Y в результате вызова цели g(2, 2, Y)?
• # Определение функции f имеет вид: f(0, R) = R:- !. f(X, C) = f(X - 2, C * C). Какое значение примет переменная Y в результате вызова цели Y = f(4, 2)?
• # Определение предиката member2 имеет вид:member2(H, [_, H | _]). member2(H, [_, _ | T]) :- member2(H, T). Сколько решений имеет цель member2(X, [1, 2, 3, 4, 5])?