Частота дискретизации 256 Гц в практике не встречается, скорее 256 КГц. Ну, это Ваше дело. Итак, 265 Гц - это 256 значений отсчетов уровня звукового сигнала за секунду. 256 - это два в восьмой степени. 128 уровней дискретизации кодируются в диапазоне от 0 до 127, а само число 128 - это два в седьмой степени. Итого, секунда записи требует для кодирования (2^8)x(2^7)=2^15 бит. А восемь минут - в 8х60 раз больше. Всего будет (2^15)x8x60 бит. Переводим в килобайты, учитывая, что байт состоит из 8 бит, а в килобайте 2^10 байт. Получаем (2^15)x8x60/(8х2^10)=(2^5)x60=32x60=1920 (Кбайт).
М... заморила твоя задача однако Program asd; USES crt; var A:array [1..5] of integer; min,max,min2,o,p:real; i,n:integer;
Procedure max1; begin for i:=1 to 5 do if A[i]>0 then if min<A[i] then min:=A[i]; Writeln('Min: ',min); end; Procedure min1; begin for i:=1 to 5 do if A[i]<0 then if min>A[i] then min:=A[i]; Writeln('Min: ',min); end; BEGIN clrscr; For i:=1 to 5 do begin A[i]:=random(9)-5; Write(' ',A[i]); end; Writeln; //Otrizanie For i:=1 to 5 do if A[i]<0 then o:=o+A[i]; Writeln('Summa otrizatelnyx elementov: ',o); //Polowitelnye For i:=1 to 5 do if A[i]>0 then p:=p+A[i]; Writeln('Summa polowitelnyx elementov: ',p); if p<o then max1 else min1; END.
var x:integer;
begin
while (x<1000) or (9999<x) do
begin
write('Введите 4ехзначное число= '); readln(x);
end;
writeln; write('Число ',x mod 10);
if x mod 2=0 then writeln(' чётно')
else writeln(' нечётно');
write('Число ',(x mod 100) div 10);
if ((x mod 100) div 10) mod 4=0 then writeln(' кратно на 4')
else writeln(' не кратно на 4');
end.