В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» – символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет.

Запрос Найдено страниц
(в тысячах)
Линкор | Корвет 3400
Линкор & Корвет 1300
Линкор 2100

Какое количество страниц (в тысячах) будет найдено по запросу Корвет?

Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.

Компьютер библиотекарь обычному человеку, который пришел в библиотеку, найти нужную ему книгу из списка книг всей большой библиотеки. Человек просто вбивает название нужной ему книги и компьютер быстро находит данную книгу и говорит, где она находиться. Так же и с работников самой библиотеки, если они не могут найти книгу для своего клиента, то они смотрят, есть ли данная книга в библиотеке, и где она находиться. Это намного упрощает работу библиотекаря! Ведь не надо бегать по всей библиотеке и запоминать, где находиться книга и есть ли она вообще!

{$R+,S+,Q+} uses  SysUtils; const R=1000;type Mas= array [0..R] of integer;var  a: Mas;  en,n: integer;  x,y,z,q,w: char;function push(n: integer): string;begin  a[en]:=n;  en:=en+1;  push:='ok';end;function pop(): integer;begin  en:=en-1;  pop:=a[en];  a[en]:=0;end;function back(): integer;begin  back:=a[en-1];end;function size(): integer;begin  size:=en;end;function clear(): string;begin  en:=0;  clear:='ok';end;function exit(): string;begin  exit:='bye';end;begin  en:=0;  repeat    read(x);    if x='p' then    begin      read(y);      if y='u' then      begin        read(z,q,w);        readln(n);        writeln(push(n))      end else begin        readln(z);        writeln(pop());      end;    end;    if x='b' then    begin      readln(y,z,q);      writeln(back());    end;    if x='s' then begin      readln(y,z,q);      writeln(size());    end;    if x='c' then begin      readln(y,z,q,w);      writeln(clear());    end;    if x='e' then begin      readln(y,z,q);      writeln(exit());    end;  until x='e';end.