Оцените обьем моноаудиофайла длительностью 10 с при частоте дискредитации 22, 05 кгц и разрешении 8 бит

22,05 кгц = 22050 гц бит = 1764 кбит =  1,764 мбит =  0,2205 мбайт  =)

1. var  a,i: integer;                 f1: text; begin assign (f1,'mir.txt');   rewrite (f1); for i: =1 to 12 do begin  read ( a);                                   write (f1,a);                                             end; close (f1); end. 2 . var  a,i: longint;                 f1: text;       begin   assign (f1,mir.txt');       reset(f1);     while not eoln(f1) do writeln (a);     close (f1); end. писала на паскале.

Вусловии нечетко указано, какой символ искать: "о" - это может быть и латинская буква, и кириллическая. в программе предполагается, что это латинский символ, в противном случае его достаточно заменить в const на нужный. const     c: char='o'; var     s: string;     i,k: integer; begin     write('введите строку: '); readln(s);     k: =0;     for i: =1 to length(s) do if s[i]=c then inc(k);     writeln('символ "',c,'" встречается ',k,' раз(а)') end. тестовое решение: введите строку: learn wisdom by the follies of others символ "o" встречается 4 раз(а)