Ответ:
1)V=2Int,где 2-стерео,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит V=2*16*10000*20=6400000 бит,делим на 8,затем на 1024 - 781,25 Кбайт
2)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит 22050 *10 *1 = 220500 байт(8бит - 1байт,а 22,05 из кГц переводим в Гц путем умножения на 1000)
3)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.t = V/(n*I).Значит t = 5505024/( 22050 *2) = 124,8 сек(Мб переводим в байты,а кГц в Гц)
Объяснение:
//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
У тебя цикл работает, пока Y меньше 14, но внутри цикла ты Y не увеличиваешь, поэтому программа работает бесконечно и не выдаёт ответ.
Я добавил переменную i:integer (integer - чтобы работал mod(остаток от деления на число)), потому-что у нас чередуются знаки + и -. Также убрал зацикливание
program three;
var c,a,y,t,n:real;
i:integer;
begin
writeln('Введите с');
readln(c);
y:=3;
t:=0;
i:=0;
while (y<14) do begin
i:=i+1;
n:=sqr(y);
if i mod 2 = 1 then t:=t-((c-3)/n)
else t:=t+((c-3)/n);
y:=y+2;
end;
writeln(t);
end.
V=i*k, где i- информационный объём (глубина цвета) одной точки (пикселы)
Отсюда => 2 в степени i=65536 => i=16
A 16 - это 2 в степени 4, т.е. i=4
Таким образом, объём изменился 16/4=4 в 4 раза
Ответ: в 4 раза уменьшился
<em><u>qBASIC:</u></em>
INPUT "x="; x
INPUT "y="; y
Sa = (x + y) / 2
Sb = SQR(x * y)
PRINT "Sa="; Sa, "Sb="; Sb
END
<em><u>Тестовое решение:</u></em>
x=? 3.6
y=? 2.8
Sa= 3.2 Sb= 3.174901