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

ответ: 1000

Объяснение:

(О - область)

О3 = 340

О2+О3 = 560

О1+О3=780

Запрос "Зима | Средиземноморье" - это все области (1+2+3).

Сложим запросы "Зима" и "Средиземноморье":

О2+О3+О1+О3 = 1340

О1+О2+2*О3=1340

Вычтем 2*О3:

О1+О2=1340-2*340

О1+О2=660

Итак, кол-во страниц (в тысячах), которое будет найдено по запросу "Зима | Средиземноморье":

О1+О2+О3 = 660+ 340 = 1000.

1000

Объяснение:

Пусть A -- множество ответов на запрос Зима,

B -- множество ответов на запрос Средиземноморье, тогда справедлива формула:

A | B = A + B - (A&B), т.е

Зима | Средиземноморье = 560 + 780 - 340 = 1000 (страниц)

Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.

//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)