Чтобы узнать размер одной секунды звукового файла нужно<span> глубину кодирования умножить на количество измерений в 1 секунду:
</span>Глубину кодирования можно определить через количество уровней. Их количество равно 2^n, где n - глубина кодирования. 16=2^n n=4
<span>информационный объем 1 секунды = 128 000*4*1=512 000бит=62,5 Кбайт.
</span>
Узнаем объем картинки. В 256-цветной палитре 1 пиксель = 8 бит.
16384 пикселя*8 бит=131 072бит=16 кбайт
Т.к. Дима скачивал граф. файл с Иваном, значит, скорость=2Кб/с
Время скачивания=16/2=8с
Значит остальные 68-8=60с музыкальный файл скачевался со скоростью 4кб/с.
Общий объем муз. файла=60с*4кб/с+8с*2кб/с=256кбайт
Длительность муз.файла=256/62,5=4с
Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
информационные: физическая карта, схема метро
физические: глобус, манекен, муляж яблока