Как делать - открываете гyгл, яндeкс, вбиваете туда запрос и на загрузившейся странице находите ответ. Количество ответов по запросу зависит от много чего: от географического положения, языка, истории запросов, времени суток и много чего ещё. Поэтому вам всё равно придётся сделать это самостоятельно. Для ограничения действия запроса каким-то сайтом, добавляйте "site:example.com", вместо example.com подставьте то, что нужно, сам запрос лучше заключить в скобки.
То, что получилось у меня, приложено к ответу. Дополнительно было посчитано относительное отклонение, это отклонение относительно суммы груши + яблоки.
Выводы:
- для всех запросов Gоogle выдаёт больше результатов, чем Яндeкс.
- для первой и третьей групп запросов теоретическая формула работает, отклонение мало (не смотря на то, что по сайту народ отклонение у яндeкса 33%, это связано скорее с ошибками округления).
- для второй группы формула работает плохо, притом в обеих поисковых системах.
- для всех групп запросов отклонение отрицательно.
Последние два наблюдения явно связаны с тем, что реальные поисковые системы не только ищут слова в веб-страницах, но и пытаются угадать, какие ещё результаты будут интересны пользователю. Поэтому по запросу с "или" будет больше результатов.
<em>Возможный воображаемый монолог поисковой системы</em>:
Так, пользователь ищет <em>яблоки</em>. Наверно, ему будет интересно и про другие фрукты почитать. Хотя он об этом не пишет, так что добавим немного результатов. Ого! А вот он ищет <em>яблоки ИЛИ груши</em>! Значит, он уже точно хочет узнать про фрукты, при этом его не так сильно принципиально беспокоит, какие именно, раз уж ему всё равно - яблоки или груши.
Дано:
t = 2 мин=120 c
f = 44100 Гц
i = 22 бит
V = ?
Решение:
V = f*t*i
V = 44100*120*22 = 116424000 бит <span>~ 13,88 Мбайт
</span>
Var v:array [0..100000] of integer; a:array [0..100,0..100000] of integer; m,p,k,w:integer;
procedure step(z,ma:integer);beginif z>0 then if a[z,ma]<>a[z-1,ma] then if a[z-1,ma]<a[z-1,ma-v[z]]+v[z] then begin step(z-1,ma-v[z]); write(v[z],' '); end else step(z-1,ma) else step(z-1,ma); end;
beginread(k);for p:=1 to k do begin read(v[p]); end;read(w);for p:=1 to k do begin for m:=1 to w do begin if m-v[p]>=0 then a[p,m]:=(max(a[p-1,m-v[p]]+v[p],a[p-1,m])) else a[p,m]:=a[p-1,m]; end; end;if a[k,w]=w then step(k,w) else writeln('No solution');end.