Artashes

Task2.3

Jan 29th, 2019
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.08 KB | None | 0 0
  1. %3
  2. книга("Пушкин", "Пушкин_Книга1", "Эксмо", 2015).
  3. книга("Пушкин", "Пушкин_Книга2", "Эксмо", 2008).
  4. книга("Гоголь", "Гоголь_Книга1", "Изд", 2007).
  5. книга("Гоголь", "Гоголь_Книга2", "Эксмо", 2019).
  6. книга("Авт1", "Книга11", "Изд", 2002).
  7. книга("Авт1", "Книга12", "Эксмо", 2012).
  8. книга("Авт0", "Книга0", "Изд", 2018).
  9. книга("Авто2", "Книга2", "Эксмо", 2005).
  10.  
  11. книги():-книга(_, Название, _, _), write(Название), nl, fail.
  12. книги(Автор1, Автор2):-книга(Автор, Название, _, _), (Автор==Автор1; Автор==Автор2), write(Название), nl, fail.
  13. книги(Издательство, МинГод):-книга(_, Название, Издательство, Год), Год>=МинГод, write(Название), nl, fail.
  14.  
  15.  
  16. % 1
  17. % книги
  18. %
  19. % 2
  20. % книги("Пушкин", "Гоголь")
  21. %
  22. % 3
  23. % книги("Эксмо", 2010)
Add Comment
Please, Sign In to add comment