Математическая модель - это фактически просто формула.
Объем инф. = число каналов * частота дискретизации * уровень квант. * время
V = 2 * 44100 16 * 60 = 84672000 бит / 8 = 10584000 байт
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
1 килобайт-1024 байт
1 байт-8 бит
1 килобайт-8192 бита
1500 килобайт-12288000 бит
12288000/512000=24 секунды