//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function NewMatrix(n:integer):array[,] of integer;
begin
Result:=MatrRandom(n,n,-50,50);
Result.Println(4); Writeln(4*n*'-')
end;
function KS(a:array[,] of integer):(integer,integer);
begin
var (k,s,n):=(0,0,a.RowCount-1);
for var i:=0 to n-1 do
for var j:=i+1 to n do
if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]);
Result:=(k,s)
end;
begin
var d:=NewMatrix(8);
var (l,c):=KS(d);
var t:=NewMatrix(10);
var (n,a):=KS(t);
var q:=NewMatrix(7);
var (m,b):=KS(q);
Writeln($'l={l}, c={c}, n={n}, a={a}, m={m}, b={b}');
var (lp,rp):=(c/n+b/l,a/m);
Writeln($'c/n+b/l={lp}{lp=rp?'' = '':'' <> ''}{rp}');
end.
<u>Пример</u>
-25 12 43 -8 -15 15 -30 23
7 49 50 4 38 -37 46 44
17 21 -37 20 13 -27 -19 -20
0 -50 -12 -37 23 -33 16 -37
-43 -6 -35 30 27 11 48 12
3 15 -8 -25 -38 -47 23 34
-49 23 -27 -27 -28 -13 -17 -49
-20 13 42 -16 -24 -43 -50 -10
--------------------------------
-17 36 -4 -6 48 -34 -33 -44 23 2
-34 48 32 -45 -32 -3 -22 4 -39 -50
44 -8 42 20 -39 -36 -1 -36 20 14
-15 -5 15 -48 43 -24 7 -21 37 36
5 -33 1 20 -30 -15 -31 -26 -5 -6
-44 22 46 -50 -4 41 45 26 -17 33
17 -47 -14 -42 -33 22 -17 30 -37 42
40 49 18 -24 -5 27 42 -29 0 26
46 -26 20 -25 7 13 -1 15 6 -48
-18 31 46 -47 -32 2 31 -8 3 -1
----------------------------------------
-48 -11 -39 3 5 -43 -46
20 5 19 50 23 -24 7
38 -7 -16 -39 2 4 -28
19 -27 -39 9 -42 -47 15
-43 43 47 -1 19 -50 24
6 -38 -34 21 0 9 30
-41 38 -48 9 5 -12 -35
----------------------------
l=10, c=-275, n=25, a=-654, m=10, b=-369
c/n+b/l=-47.9 <> -65.4
Частота дискретизации по времени 48 кГц означает, что за секунду делается 48 000 отсчетов. Каждый отсчет использует 16 бит для кодирования громкости, поэтому один канал такой записи за секунду потребует хранить 48 000 × 16 = 768 000 бит или 768 000 / 8 = 96 000 байт.
Запись стереофоническая, следовательно она использует два канала и количество требуемых байт на хранение данных за одну секунду составит 96 000 × 2 = 192 000 байт.
Переведем эту величину в мегабайты. 192 000 / 1024² ≈ 0.183 Мб
10% объема двухмегабайтной памяти - это 2 / 10 = 0.2 Мб
Время затраченное на заполнение такого объема составит
0.2 / 183 ≈ 1.09 с
1010,00100101(2) = 001 010,001 001 101(2) = 12,115(8)
1110,0101000(2) = 001 110, 010 100(2) = 16,24(8)
1000,1111001(2) = 001 000,111 100 100(2) = 10,744(8)
101011,11(2) = 101 011, 110(2) = 53,6(8)
1010,00100101(2) = 1010, 0010 0101(2) = A,25(16)
1110,0101000(2) = 1110,0101(2) = E,5(16)
1000,1111001(2) = 1000,1111 0010(2) = 8,F2(16)
101011,11(2) = 0010 1011, 1100(2) = 2B,C(16)
266(8) = 010 110 110(2) = 10110110(2)
266(16) = 0010 0110 0110(2) = 1001100110(2)
1270(8) = 001 010 111 000(2) = 1010111000(2)
1270(16) = 0001 0010 0111 0000(2) = 100100111(2)
10,23(8) = 001 000, 010 011(2) = 1000,001(2)
10,23(16) = 0001 0000, 0010 0011(2) = 10000,00100011(2)
11,1(8) = 001 001, 001(2) = 1001,001(2)
11,1(16) = 0001 0001,0001(2) = 10001,0001(2)