Разработать, ввести в ЭВМ и отладить программу для расчёта высоты
читального зала библиотеки, если известны длина и ширина зала, число читателей
и норма объёма воздуха на человека.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Спасибо большое)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад