Могу скинуть ответы на весь этот тест. ну а в этом вопросе ответ а)
Указывайте <em>ЯП.
</em>Вот решение на Pascal :)
<em>
</em>
var
i, a, b: integer;
p: longint;
begin
readln(a, b);
p := 1;
for i := a to b do
p := p * sqr(i);
writeln(p);
<span>end.
</span>
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*n*'-');
Writeln('Средние значения по столбцам');
a.Cols.Select(col->col.Average).Println
end.
<u>Пример</u>
Количество строк и столбцов в матрице: 6 7
*** Исходная матрица ***
-70 66 -81 -2 42 22 -7
-42 4 -27 32 6 -38 -81
-22 -60 -65 -26 -87 2 -49
-59 -48 -5 -11 38 -27 98
-94 -47 86 -11 -13 -92 -43
-92 89 -58 37 20 -14 -45
----------------------------
Средние значения по столбцам
-63.1666666666667 0.666666666666667 -25 3.16666666666667 1 -24.5 -21.1666666666667
Program schet;
var v, h, y: real;
begin
readln(h, y);
v:=1/5*sqrt(sqr(h)*sqr(h)+3*y)-5*abs(h)
writeln(v)
end.
Последовательное вычисление по формуле:
ЕСЛИ(А1<20;4;5) ⇒ 5
ЕСЛИ(А1<15;3;5) ⇒ 5
ЕСЛИ(А1<10;2;5) ⇒ 5
Ответ: 5