М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
хани2005
хани2005
04.01.2021 23:59 •  Информатика

1. Производится одноканальная (моно) звукозапись с частотой дискретизации 64 кГц и глубиной кодирования 16 бит. Запись длится 2 минуты. Определите размер полученного файла (Кбайт)?
Двухканальная (стерео) звукозапись с частотой дискретизации 32 кГц и 24-битным разрешением велась в течение 128 секунд. Определите размер полученного файла в Кбайт.
Информационный объем некоторого файла со стереозвуком составляет 960000 байт. С какой частотой дискретизации (КГц) он закодирован, если продолжительность звучания файла - 20с, а глубина кодирования - 16 бит.

👇
Ответ:
iskevuchp091sn
iskevuchp091sn
04.01.2021

ответ:а який це клас?

Объяснение:

4,5(90 оценок)
Открыть все ответы
Ответ:
TyanochkaTyan
TyanochkaTyan
04.01.2021
Паскаль
---
uses crt;
var a: array[1..100,1..100] of integer;
    x,y,sum,k,n:integer;
begin
     write('Введите n: ');
     readln(n);
     clrscr;
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     k:=0;
     Sum:=0;
     for x:=1 to n do
         for y:=x+1 to n do
             if a[x,y]>0 then begin
                Sum:=Sum+a[x,y];
                inc(k);
             end;
     writeln;
     if k<>0 then write(sum/k:4:2);
end.
4,6(76 оценок)
Ответ:
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.
4,4(48 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ