Var n,S,k,t:integer;
Begin
S:=0;
k:=0;
Read(n);
For n:= 1 to n do
Begin
Read(t);
if t > 0 then
Begin
S:=S+t;
k:=k+1;
End;
End;
WriteLn('k = ',k);
Write('Sr = ',S/k)
End.
class Program
{
static void Main(string[] args)
{
double sum = 0;
double pow = 8;
for(int i = 0; i < pow; i++)
{
sum = sum + Math.Pow(2, i);
}
Console.WriteLine($"{sum}");
Console.ReadKey(true);
}
}
<span>Объем памяти для хранения данных 1 канала (моно) </span>
<span>I = f * b * t
</span>(для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования b бит требуется I<span> бит памяти)</span><span>
f = </span>20050 Гц
b = <span>24 бит
</span>t = 1,5 мин = 1,5 * 60 = 90 сек
I = 20050 * 24 * 90 = 43308000 бит
I = 43308000 бит = 43308000/8 = 5413500 байт = 5413500/1024 ≈ 5286,621 кбайт = 5286,621/1024 ≈ 5,2 Мбайт
I ≈ 5,2 Мбайт
Ответ:
1)Байт, килобайт, мегабайт, гигабайт и т.д
2)Информационный объем сообщения это - кол-во двоичных символов, которое используется для кодирования этого сообщения.
3)Бит - это единица измерения количества информации.
4)Скорость передачи информации - это объем данных, передаваемый за единицу времени.
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>