1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>
1)var
s, k, i, n: integer;
a: array[1..1000] of integer;
begin
Read(n);
s := 0;
k := 0;
for i := 1 to n do
begin
Read(a[i]);
if (a[i] > 0) and (a[i] mod 8 = 0) then begin
s := s + a[i];
k := k + 1;
end;
end;
Write((s / k):0:3);
end.
1.1)
//pascalABC.Net 3.1 1200
//более краткий и наглядный вариант
begin
write(
ReadArrInteger(ReadInteger('n = '))
.Where(x -> (x > 0) and (x mod 8 = 0))
.Average);
end.
2)var
s, k, i, n: integer;
a: array[1..1000] of integer;
begin
Read(n);
s := 0;
k := 0;
for i := 1 to n do
begin
Read(a[i]);
if (a[i] < 0) and (a[i] mod 6 = 0) then begin
s := s + a[i];
k := k + 1;
end;
end;
Write((s / k):0:3);
end.
2.1)
//pascalABC.Net 3.1 1200
//более краткий и наглядный вариант
begin
write(
ReadArrInteger(ReadInteger('n = '))
.Where(x -> (x < 0) and (x mod 6 = 0))
.Average);
end.
3)var
s, i, n: integer;
a: array[1..1000] of integer;
begin
Read(n);
s := 0;
for i := 1 to n do
begin
Read(a[i]);
if (a[i] >= 5) and (a[i] <= 25) and (a[i] mod 2 = 0) then begin
s := s + a[i];
end;
end;
Write(s);
end.
3.1)
//pascalABC.Net 3.1 1200
//более краткий и наглядный вариант
begin
write(
ReadArrInteger(ReadInteger('n = '))
.Where(x -> (x >= 5) and (x <= 25) and (x mod 2 = 0))
.Sum);
end.
Решение:
1 байт = 8 бит
5*8=40 (бит)
Ответ: 40 битов
1)
частота дискретизации 48 кГц
это значит, производится запись 48000 значений в секунду
каждое значение занимает 16 бит информации
Итого: 1(с) * 48000(знач./с) * 16(бит) = 768000 бит
надо обратить внимание, на то, что файл стерео, то есть записывается два канала, каждый по 768000 бит информации
Общий объём несжатого аудио файла будет равен:
2 * 768000 = 1536000 бит
переведём в байты: 1536000 / 8 = 192000 байт
переведём в килобайты: 192000 / 1024 = 187,5 кБ
2)
объём памяти 256 кБ
переведём в байты: 256 * 1024 = 262144 байта
переведём в биты: 262144 * 8 = 2097152 бита
частота дискретизации 512 Гц (то есть 512 значений в секунду)
разрядность каждого значения 32 бита
можно считать по отдельности:
объёма памяти хватит для записи: 2097152 / 32 = 65536 значений
при скорости записи 512 значений в секунду это количество значений будет записано за: 65536 / 512 = 128 секунд
А можно все расчёты записать в одном примере:
2097152 / 32 / 512 = 128 секунд
Это время можно записать как 2 минуты 8 секунд
(так как 2 * 60 + 8 = 120 + 8 = 128)
3)
частота дискретизации 256 Гц (256 значений в секунду)
использовалось 128 уровней дискретизации
это значит, что такая запись имеет 128 возможных значений для амплитуды сигнала
для записи 128 возможных значений требуется 7 бит (т.к. 2^7 = 128)
значит, разрядность записи равна 7 бит
длительность записи 2 минуты 8 секунд
переведём в секунды: 2 * 60 + 8 = 120 + 8 = 128 секунд
Вычислим объём файла записи (как в первом примере):
128 * 256 * 7 = 229376 бит
переведём в байты: 229376 / 8 = 28672 байт
переведём в килобайты: 28672 / 1024 = 28 кБ
переведём в мегабайты: 28 / 1024 = 0,02734375 МБ
1)150000б. 0.15мб
2)3е+6 байт
3)5.5 гб. 5500000кб