чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)
Объем файла : С=t*b*N, где С- Объем звукозаписи в байтах, t - время в сек., b- разрядность в байтах, N - частота дискретизации в Гц или 1/сек.
С= 60*(16/8)*44000 = 5280000 байт = 5156 КБайт = 5,03 Мбайт
Продолжительность звукозаписи из той же формулы:
t=C/b*N C- Объем диска в байтах. b- разрядность в байтах, t- время в сек.
t=(700*1024*1024)/(16/8)*44000= 8340,94 сек = 139 мин.
Да. т.к. 7% от 200000 это 14000, следовательно объём древесины будет уменьшаться
<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