Объем файла звукозаписи = 1 Мбайт = 1*1024кб=1*1024*1024*8бит
частота= 16кГц= 16000Гц - это кол-во снятий показаний величины звука в секунду(1 гц=1/секунда)
Тогда:
объем файла = частота * время звучания * разрешение => тогда выразим отсюда время звучания:
Время звучания = (1*1024*1024*8 бит)/(16000Гц * 32 бит) = 8388608 / 512000 = 16,384 сек.
// PascalABC.NET
var gl:='кпстфхцчшщ';
zv:='бвгджзлмнр';
zi: array [1..2,1..10] of integer; //для отметок о выполнении условий для звонких
s: string;
i,n:integer;
chet:boolean; //признак четности слова
begin
chet:=false;
writeln('введите строку из русских слов, разделенные пробелом');
readln(s);
for i:=1 to length(s) do
begin
n:=Pos(s[i],zv);
if (chet=false) then
begin
delete(gl,Pos(s[i],gl),1);
if n>0 then zi[1,n]:=1 //первый признак выполнен
end
else if n>0 then zi[2,n]:=-1; //второй признак не выполнен
if s[i]=' ' then chet:=not(chet);
end;
writeln('глухие согласные, которых нет в нечетных словах: ',gl);
write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: ');
for i:=1 to 10 do
if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.
Program n1;
var sum,k,i: integer;
begin
k:=0;
sum:=0;
for i:=10 to 99 do if i mod 3=0 then begin
k:=k+1;
sum:=sum+i;
end;
writeln('сумма: ',sum);
write('срзнач: ',sum/k);
end.
