Анализируем по пунктам и смотрим, какие из значений нужно найти.
D3 = D2*D1
D2 = Сумм(A2:C2), что значит сложить все значения этих ячеек, т.е. A2+B2+C2.
C2 = B2 + A2 = 4 + 1 = 5
Возвращаемся к D2.
D2 = 1 + 4 + 5 = 10.
D1 = Мин (A1:C1). Функция Мин сравнивает все значения в диапазоне и выдает минимальное, в этом случае минимальным будет C1 = 1.
D3 = 10 * 1 = 10.
Program DZ;
var n: longint;
begin
read (n);
if n mod 2 <> 0 then n:=n-12;
write (n);
end.
В диапазон входит 10 клеток
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Формула Шеннона: I=log2 N (I-кол-во инф-ции; N=всё/нужное)
---------------------------------------------------------------------------------------
обозначение:
ч - кол-во четвёрок
т - кол-во троек
д - количество двоек
пятёрок нет
-----------------------------------------------------------------------------------------
по условию т+д=22
не провалившиеся = ч+22 ----> log2 3=log2 ((ч+22)/(ч+т))
инф-ный объём сообщения, что тройка = 2 битам ---->
2=log2 ((ч+22)/т)
---------------------------------------------------------------------------------
Имеем систему трёх уравнений с тремя неизвестными:
т+д=22
log2 3=log2 ((ч+22)/(ч+т))
2=log2 ((ч+22)/т) ---->log2 4=log2 ((ч+22)/т)
Преобразуем:
..................................система:
т+д=22
3=(ч+22)/(ч+т)
4=(ч+22)/т ------> ч+22=4т
.................................
т+д=22
3ч+3т=ч+22
4т=ч+22
...........................
т+д=22
3ч+3т=4т
4т=ч+22
.........................
т+д=22
3ч=т
12ч=ч+22
....................
т+д=22
3ч=т
ч=2
.............
ч=2 т=3ч=6 д=22-6=16
всего: 2+6+16=24 абитуриента
ответ 24