Дано:
2стр
60строк
i=8бит
найти iбольшую-I
решение:
I=2*60*80=9600бит их надо перевести в байты чтобы потом перевести в килобайты=>9600/8=1200байт=1200*8/1024=9,375кбайт
вроде так)
Надеюсь, что это моно файл?
I = частота дискретизации * время * глубина звука
переводим все в биты, удобно решать в степенях 2, т.к. затем можно сократить.
Дерзай!!!
для контроля (215 Кб)
Восемь 8
два 2
девять 9
возможное минимальное число - 289
Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
inc(i);
end;
end;
Writeln(chislo);
readln;
end.