Пример реализации и Excel 2003
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно посмотреть в строке формул.
Объем аудиофайла расчитывается так: <em><u> I = k*r*f*t ,</u> </em>
где k - количество каналов записи (моно - 1, стерео - 2);
f - частота дискретизации (кол-во отсчетов, запоминаемых за 1 секунду, измеряется в Гц);
r - глубина кодирования (сколько бит приходится на 1 отсчет);
t - время звучания
итак, нам дано:
k = 1 т.к. у нас моноаудиофайл
I = 30 мб =30*1024*1024*8 бит = 3*10*2²³ бит
r = 16 бит = 2⁴ бит,
f = 48 кГц = 48 000 Гц = 3*2⁴*10³ Гц,
нужно найти время t.
из формулы <em><u>I = k*r*f*t </u></em> выразим t
t = I/(k*r*f)
t = (3*10*2²³)/(1*2⁴*3*2⁴*10³)= (3*10*2²³)/(2⁸*3*10³) = 2¹⁵/10²= 327,68 с.
результат подозрительный, конечно...
Const N = 10;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Ответ:
8
Объяснение:
По росту ученики стоят так (самый высокий 6, самый низкий 1):
3 4 1 6 5 2
1) 3 4 6 1 5 2
2) 3 6 4 1 5 2
3) 6 3 4 1 5 2
4) 6 3 4 5 1 2
5) 6 3 5 4 1 2
6) 6 5 3 4 1 2
7) 6 5 4 3 1 2
8) 6 5 4 3 2 1