Записи

[Nilip 777]

Вывести информацию о 3 учебниках по информатике с указанием авторов, названия, издательства, года издания и количества страниц.

[ZX Spectrum-128]

Но ведь это совсем нетрудно. На форуме большое количество подобных задач. Воспользуйтесь поиском.

[rrrFer]

book("informatika", "Petrov", "Nazvanie 1", "Izdatelstvo 1", 1991, 254).
book("informatika", "Sidorov", "Nazvanie2", "Izdatelstvo 2", 1992, 256).
book("fizika", "Petrov", "Nazvanie 3", "Izdatelstvo 3", 1992, 258).
book("informatika", "Ivanov", "Nazvanie 4", "Izdatelstvo 4", 1993, 252).

p:-
  book("informatika", Name, Title, Izd, Year, Page), 
  write(Name, Title, Izd, Year, Page), nl.

На прологе.

[Nilip 777]

Где вы это нашли?

[rrrFer]

Где вы это нашли?

я это не нашел, я это написал сам.