Определить количество звука если известно что объем стерео звучания файла длительностью звучания в 10 секунд при частоте дискретизации 8 килогерц равен 940 кб

V=940 кб n(стерео)=2 o=8000гц t=10с v1-? решение: v=nv1*ot v1=v/n*o*t а там по формуле

pascalabc.net

begin

  var eps : = 1e-5;

  var (s, a, i, n) : = (1.0, 1.0, 1.0, 0);

  repeat

    i += 1;

    n += 1;

    s += 1 / sqr(i);

    if n mod 500 = 0 then

      if abs(s - a) < eps then

        break

      else

        a : = s

  until false;

  s.print

end.

поскольку ряд сходится медленно, сравниваются частичные суммы, отстоящие друг от друга на 500 членов. "правильное" значение, известное из , равно приблизительно 1,64493.

ответ:

я выбирал у которых больше всего .

надеюсь тебе это решение .

1

var i: integer;

begin

for i: =2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

var

a: real;

i,n: integer;

begin

writeln

a: =0

for i: =1 to n do

a: = a + sgr(i);

end

writeln

readln

end.

6

var

n1, n2, m, i: longint

begin

write( wwedite n1= `)

readln (n2)

if (n1=0) and (n2=0) then writeln;

if n1> n2 then m: = n1 else m: = n2;

i: =m -1;

repeat

inc(i);

until ((i mod n1)=0) and ((i mod n2)=0);

writeln ;

end.

12.

program n99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ term;

term: = term×2

end

writeln(s)

readln

end.