В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети. Считается, что все вопросы выполнялись практически одновременно, так что набор страниц содержащих все искомые слова, не изменялся за время выполненных запросов. Запрос Найдено страниц (в тысячах)
Царевна | Лягушка 157
Царевна & Лягушка 56
Царевна 95
Какое количество страниц (в тысячах) будет найдено по запросу Лягушка?
Изначально N была равна 5, каждый повтор цикла к N прибавляется 6.
Определим количество повторов цикла (сколько раз к N должна быть прибавлена 6 для получения числа 89):
5+6*x = 89
6*x = 84
x = 14
То есть цикл должен совершить 14 повторов.
Каждый раз к S прибавляется D (которую нужно найти), изначально S = 83. Нам удобнее прибавлять D к нулю, а не к 83, поэтому вычтем из 1200 83 и приравняем S к нулю.
Условие в цикле теперь будет выглядеть как S <= 1117
Нам нужно наибольшее S, при котором цикл совершает 14 повторов. Чем больше значение D, тем меньше повторов совершит цикл. Найдем наименьшее целое D, при котором цикл совершает 13 повторов, и возьмем предыдущее целое, это и будет наибольшее D, при котором цикл совершит 14 повторов.
Цикл завершается после того, как условие перестанет выполняться, то есть при s > 1117. Составим неравенство:
13*d > 1117
d > 85,92
То есть наименьшее D, при котором цикл совершит 13 повторов - 86, значит наибольшее D, при котором цикл совершит 14 повторов - 85.
ответ 85
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ
сумма := 0;
макс := 0;
Вывод.Цепь("Введите число автомобилей: ");
N := Приём.Число();
ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
Вывод.Цепь("^Введите скорости:^");
ОТ сч := 1 ДО N ВЫП
скор := Приём.Число();
ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
УВЕЛИЧИТЬ(сумма, скор);
ЕСЛИ скор > макс ТО макс := скор КОН;
Вывод.Цепь(" ")
КОН
КОН;
Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.