Question

Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200 кг/м^3
Составить программу которая вычисляет давление столба жидкости на дно сосудов p=d*g*h
(g=9.8 м/с^2);
h вводится в массив с клавиатуры, результат выводится на экран.

Answer 1

const
  d=1200;
var
  h,p:real;
begin
writeln('Высота столба жидкости (в метрах): ');
readln(h);
p:=9.8*d*h;
writeln('Ответ: ',p,' Па')
end.