Можно как-нибудь так (исходник и скрин работы в приложении)
<span>var
m:real;
n,i:integer;
procedure MathW(var i:integer;var m:real);
var
x,p:real;
begin;
write('Введите значение ',i,':');
readln(x);
write('Введите вероятность ',i,':');
readln(p);
m:=m+x*p;
end;
begin;
write('Введите количество испытаний:');
readln(n);
for i:=1 to n do
MathW(i,m);
write('Result:',m);
end.
</span>
3600 кбайт=28 800 кбит
28 800/192=150 сек
150 сек=2,5 минуты
Верно - г
1) ответ: 001
2)
160 кбайт * 1024 байт к байт * 8 бит в байт = 1 310 720 бит
1280 пикс * 960 пикс = 1 310 720 бит / 1 228 800 пикселей = 1,06 ~1 бит на пиксель (меньше бита быть не может).
2^1 = 2-ух цветовая палитра (чёрно-белая) или одно-битовая палитра.
а остаток на всякий ховно пойдет типо формата или сжатия или выделили лишнее (запас или просчёт в большую сторону).
3)
40 мегабайт * 1024 раз * 1024 раз * 8 раз = 335 544 320 бит
30 мегабайт * 1024 раз * 1024 раз * 8 раз = 251 658 240 бит
4 минуты * 60 сек минута = 240 сек
16 кГц * 1000 = 16000 Гц
24 бит на один Гц * 16000 Гц за один сек * 2 стерео * 240 сек = 184 320 000 бит вес музыка.wav, качество PCM
16 бит * 16000 Гц за сек * 2 канала * 240 сек = 122 880 000 бит вес файл
24 * 32000 * 2 стерео канала * 240 = 368 640 000 бит
16 * 32000 * 2 канала стерео (в кажд канале будет 16 * 32000) * 240 = 245760000 бит
последний 4) влезет и ещё место останется, точность до 10 мегабайт это 40 + или - 10.
Во вложении
-------------------------