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

Сначала нужно создать запись, которая будет содержать все необходимые поля для книги. В языке Pascal это можно сделать следующим образом:

type TBook = record AuthorSurname: string; // Фамилия автора Title: string; // Название книги PageCount: integer; // Количество страниц Year: integer; // Год издания end;

Теперь нужно создать файл, который будет хранить записи о книгах. Для этого мы можем использовать тип файла, который будет хранить записи типа TBook:

var BookFile: file of TBook;

Для записи информации о книгах в файл, вам нужно будет открыть файл для записи, создать несколько записей о книгах и записать их в файл:

begin AssignFile(BookFile, 'books.dat'); Rewrite(BookFile); var Book: TBook; Book.AuthorSurname :='Толстой'; Book.Title :='Война и мир'; Book.PageCount := 1225; Book.Year := 1869; Write(BookFile, Book); CloseFile(BookFile); end;

Теперь, чтобы найти книги определенного автора, изданные не позднее определенного года, мы должны открыть файл для чтения и перебрать все записи:

var Author: string; YearLimit: integer; Found: boolean; begin Write('Введите фамилию автора: '); ReadLn(Author); Write('Введите год: '); ReadLn(YearLimit); AssignFile(BookFile, 'books.dat'); Reset(BookFile); Found := false; while not EOF(BookFile) do begin Read(BookFile, Book); if (Book.AuthorSurname = Author) and (Book.Year <= YearLimit) then begin WriteLn('Название книги: ', Book.Title); Found := true; end; end; if not Found then WriteLn('Книги не найдены.'); CloseFile(BookFile); end;

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