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; End.
Написано на Pascal
Спасибо большое)