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

1

Ответы и объяснения

2013-11-05T16:12:51+04:00
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.