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бит/сек
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.
Ответ:
Кодировку utf-8 поставил?
Объяснение:
1. <span>var N, k: real; </span>
<span>begin </span>
<span>readln(N); </span>
<span>if (N<0) then k:= 0 </span>
<span>else </span>
<span>begin </span>
<span>if (frac(N)=0) then k:=N*2 </span>
<span>else k:=(trunc(N)+1)*2; </span>
<span>end; </span>
<span>writeln(k); </span>
<span>end.
2. </span><span>Первый хулиган увеличивал количество кусочков на 3
Второй - на 6
То есть, всего кусочков должно быть N = 1 + 3m + 6n
Значит, N - 1 должно делиться на 3
и наоборот, если N - 1 делится на 3
N - 1 = 3k
то возможна ситуация, когда Первый хулиган рвал k раз,
а Второй наблюдал (ничего не рвал).
Алгоритм свёлся к проверке:
Если N -1 не делится на 3, то No
КОНЕЦ</span>
Var a: integer;
var d: real;
begin
write('Введите дюймы: ');
readln(a);
d:=a*2.54;
writeln(a,'(дюйм) = ',d,' (см)');
end.