Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
A = 2*1200*130*28 бит = 2*1200*130*28 / 8 байт = 1092000 байт
1092000/456000 = 2,4
Ответ:Файл без сжатия в 2,4 раза больше сжатого файла.
1) Елена (первая буква гласная И четвёртая буква согласная)
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
1 способ:
если x<=-1
то ...
иначе если x<0 то ...
иначе ...
2 способ:
если x<=-1 то ...
если (x>-1) И (x<0) то ...
если x>=0 то ...
лови))
program c1;
uses crt;
var b:array[1..3] of shortint;
min:integer;
max:integer;
i:integer;
begin
for i:=1 to 3 do
begin
readln(b[i])
if(i=1) then
begin
min:=b[i];
max:=b[i];
end;
if(b[i]<min) then
begin
min:=b[i];
end;
if(b[i]>max) then
begin
max:=b[i]
end;
end
if(min<0) then
begin
writeln(min*max);
end else
begin
writeln(min+max);
end;
end.