2 000 Кбайт
Объяснение:
V = t * f * i * k, где
V - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
t = 16 сек
i = 16 бит
f = 32 кГц = 32 000 Гц
k = 2
Найти:
V
V = 16 * 32 000 * 16 * 2 = 16 384 000 бит = 2 048 000 байт = 2 000 Кбайт
1 байт = 8 бит
1 Кбайт = 1024 байт
Поделитесь своими знаниями, ответьте на вопрос:
№111858. простой квадрат (informatics.mccme) у пети имеется игровое поле размером 33, заполненное числами от 1 до 9. в начале игры он может поставить фишку в любую клетку поля. на каждом шаге игры разрешается перемещать фишку в любую соседнюю по стороне клетку, но не разрешается посещать одну и ту же клетку дважды. петя внимательно ведет протокол игры, записывая в него цифры в том порядке, в котором фишка посещала клетки. пете стало интересно, какое максимальное число он может получить в протоколе. ему ответить на этот вопрос. входные данные входной файл содержит описание поля — 3 строки по 3 целых числа, разделенных пробелами. гарантируется, что все девять чисел различны и лежат в диапазоне от 1 до 9. выходные данные выведите одно целое число — максимальное число, которое могло получиться в протоколе при игре на данном поле. ответ можно выводить не в виде числа, а в виде строки или в виде последовательности отдельных цифр (но не разделяя их пробелами пример ввод 1 2 3 4 5 6 7 8 9 вывод 987456321
Ошибка 1. Объявлен массив с типом данных значений string, хотя нужно заполнять массив целыми числами, а потом находить их сумму. Необходимо заменить тип string на integer.
Ошибка 2. Цикл не выполнится ни один раз, т.к. неправильно задан параметр. Необходимо либо написать конструкцию так: For i:=n downto 1 do , либо For i:=1 to n do .
Исправленный код:
Program summa;
Var a: array[1..100] of integer;
i, n: integer;
s: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
write ('введите число');
readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.