Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
35 = 2^i
i = 6 бит - 1 символ
10*6 = 60 бит информации
В 1 бите можно закодировать 2 символа, в двух - 4, в трех - 8 и так далее.
Ищем наименьшую степень двойки, которая окажется >= количеству символов, которые надо закодировать. Показатель этой степени и будет являться ответом. В данном случает это 64, а 64 - это 2 в степени 6.
Ответ: 6 бит.
Ответ:
72,25(10) = 5*10^-2 + 2*10^-1 + 2*10^0 + 7*10^1
десятичная часть числа - десятки с отрицательной степенью, целая часть - десятки с неотрицательной степенью.
дес. часть равна 0,25. Это равно 0,2+0,05.
0,2 = 2/10 = 2*10^-1
0,05 = 5/100 = 5/10^2 = 5*10^-2.
С целой частью думаю и так должно быть все ясно, не 1 класс)