940x1024=962560 байт или 962560 байт = 7700480 бит (весь файл) или = 770048 бит/сек. поскольку качество звука определяется не только частотой дискретизации, но и размерностью квантования (разрядностью по амплитуде), однозначного ответа к этой задаче быть не может, так как ни дискретизация, ни глубина квантования в задаче не определена. Например 1)при частоте дискретизации 10кГц разрядность одногоканального звука равна 7700480/10000=770 уровней амплитуды, или 10 бит (2^10=1024) 512<770<1024 или 2) при глубине квантования 256 (2^8=1 байт) частота дискретизации составляет: 770048/8=96256 Гц к данной задаче можно сказать, что качество звука равно 770048бит/сек
Function NOK(a, b: integer): integer; var c, d, e: integer; begin c := a; d := b; while (d > 0) do begin c := c mod d; e := c; c := d; d := e; end; result := (a div c) * b; end;
const n = 4;
var a: array [1..n] of integer; b: array [1..n*n] of integer; i, j, min_: integer;
begin writeln('Введите n целых чисел, только вот давайте без нулей, детсадовцы знают, что на 0 делить нельзя, плохо это'); min_ := 2147483647; for i := 1 to n do readln(a[i]); for i := 1 to n do for j := 1 to n do begin if (i = j) then continue; b[i + n * (j - 1)] := nok(a[i], a[j]); min_ := min(b[i + n * (j - 1)], min_); end; write(' '); for i := 1 to n do write(i:5); writeln(); for i := 1 to n do begin write(i:5); for j := 1 to n do write(b[i + n * (j - 1)]:5); writeln(); end; writeln('min: ', min_); end.
Сделайте фезбук