Дано: решение:
N-128 N=2^i
2^7=2^i
i-? 7=i
ответ: 7бит
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</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