Количество каналов = 1 канал
Информационный объем файла = 5,25 Мбайт = 5,25 * 1024 * 1024 байт
Звуковая глубина = 16 бит = 2 байта
Частота дискретизации = 22,05 КГц = 22050 Гц
Время звучания -?
Информационный объем файла = Количество каналов * Время звучания * Частота Дискретизации * Звуковая Гулубина
Время звучания = Информационный объем файла / (Количество каналов * Частота Дискретизации * Звуковая Гулубина) = 5,25 * 1024 *1024 / (1* 22050 * 2 ) = 125 c (с округлением до целого значения)
1) Е:\ОЗЁРА\<span>Голомянка.bmp
2) </span>C:\новое\поколение\выбирает\чтение.doc
3) <span>примирение.doc</span>
Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6