Ну, если я правильно поняла, то вот. например:
Белый, но не снег, быстрый, но не волк, в лесу, но не гриб. (Заяц)
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Г=1/с; 1 мин 20с =80 с
1) F=256 000 бит/с * (2*60+45) секунд =256 000*165 бит - весь файл
2) (256 000 * 165 бит ) / (80 с *44 000 Г) = (256*165)/(80*44)=
=(16*15)/(5*4) = 4*3 = 12 бит - количество уровней квантования
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>