Сначала небольшие пояснения.
Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно.
Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.
I1=48000*2(stereo)*24*t
I2=24000*16*t
I1=2304000
I2=384000
I2/I2=6
Program HallHeight;
Var a, b, d, V: Integer;
c: Real;
Begin
Write('Длина зала = ');
ReadLn(a);
Write('Ширина зала = ');
ReadLn(b);
Write('Количество читателей = ');
ReadLn(d);
Write('Норма объема воздуха на человека = ');
ReadLn(V);
c := (V * d) / a / b;
WriteLn('Высота зала равна ', c:5:2);
ReadLn;
<span>End.</span>
Разрешение сканара А. Точки на дюйм
Наименьгая единица информации Е. Бит
8 двоичных разрядов Г октет