Вытаскивание из корзины любого из 16 шаров<span> </span>–<span> </span>события равновероятные (т.к. все шары разного цвета). Поэтому<span> </span>для<span> </span>решения<span> </span>задачи<span> </span>применима<span> </span>формула<span> </span><span>2 ^</span>i<span> = N.</span> Здесь<span> </span>N = 16<span> </span>–<span> </span>число шаров разного цвета.<span> </span>Решая<span> </span>уравнение<span> </span><span>2^i</span><span> =16,</span><span> </span>получаем ответ:<span> </span>i<span> = 4 бита (2^4=2*2*2*2=16)</span>
Найдем первое число из данного диапазона, кратное семи.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
<u><em>Тестовое решение:</em></u>
S=2107
Ответ:
Зажми одновременно кнопку "уменьшение громкости" и "вкл, выкл"
var i:real;
begin
i:=4.4;
while i<6.5 do begin
writeln(i);
i:=i+0.2;
end;
end.