Предмет: Информатика,
автор: demilovato135
Разработать, ввести в ЭВМ и отладить программу для расчёта высоты
читального зала библиотеки, если известны длина и ширина зала, число читателей
и норма объёма воздуха на человека.
Ответы
Автор ответа:
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
Спасибо большое)
Интересные вопросы
Предмет: Литература,
автор: lena759313
Предмет: Русский язык,
автор: alenmaj2004
Предмет: История,
автор: melnichenkooksana4
Предмет: Биология,
автор: Ellesh
Предмет: Математика,
автор: Аноним