Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.
Короче, смотри 1 + 1 = 5 + 1 выполняется Else(В данном коде у тебя ничего не происходит), пошли по кругу, 1 + 2 = 5 + 1 снова выполняется Else, и т.д, пока не будет 1 + 5 = 5 + 1 тогда здесь уже выполняется Then, а именно число которые стоит в позиции i = 1 и j = 5 (i - это строки)(j - это столбцы) например там стоит число 20 то уже будет 21.
1) 128000:8=16000 байт/c
2) 625*1024=640000 байт
3) 640000:16000=40 с - t1
4) 512000:8=64000 байт/с
5) 640000:64000=10 с - t2
6) 40-10=30
Ответ на 30 с
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191