Var a=prompt("Введите число a");
var b=prompt("Введите число b");
var c=0;
c=(Number(a)+Number(b));
alert("Cумма чисел: "+c);
c=(Number(a)*Number(b));
alert("Произведение чисел: "+c); <span>
</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта
Первая запись = 2 канала * 10 с * 16000 ГЦ * 24 бита = 7680000 бита.
Вторая запись = 1 канал * 10 с * 16000 ГЦ * 24 бита = 3840000 бита.
Общий вес файла: 11520000 бита = 1440000 байт = 1406.25 Кбайт = 1406 Кбайт.
Ответ: 1406 Кбайт.
11КГц=11000гц
1 мин=60 секунд
11000*8*60=5280000/4=1320000 байт/1024=1289,0625 кб/1024=1мб
Вроде так)