Напишите рекомендательную систему для нового сервиса Bookflix, подбирающего книги для пользователя. Сервис хранит все прочитанные пользователем книги и по его за Посоветуй мне книгу" должен подобрать набор книг, соответствующий критериям:
книга не должна быть прочитана пользователем ранее.
книга должна быть в любимом жанре пользователя. Любимый жанр – это жанр, который чаще всего встречается в списке прочитанных книг. Любимых
Объяснение:
Напишите рекомендательную систему для нового сервиса Bookflix, подбирающего книги для пользователя. Сервис хранит все прочитанные пользователем книги и по его за Посоветуй мне книгу" должен подобрать набор книг, соответствующий критериям:
книга не должна быть прочитана пользователем ранее.
книга должна быть в любимом жанре пользователя. Любимый жанр – это жанр, который чаще всего встречается в списке прочитанных книг. Любимых
var a, b: string;
i: longint;
begin
clrscr;
write('Введите слово: ');
readln(a);
b := '';
for i := 1 to length(a) do
b := a[i] + b;
if a = b then
write('перевертыш')
else
write('не перевертыш');
readln;
end.