Question

Разработать, ввести в ЭВМ и отладить программу для расчёта высоты читального зала библиотеки, если известны длина и ширина зала, число читателей и норма объёма воздуха на человека.

Answer 1

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.