Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3. составьте программу, которая вычисляет: а) давление столба жидкости на дно сосудов p=dgh(g=9.8м/с); б) массу жидкости в каждом сосуде m=dv=dhs(s=3.14 r2
program task31101745; const d = 1200; g = 10; var h, R: real; begin Writeln('ВВЕДИТЕ ВЫСОТУ СТОЛБА ЖИДКОСТИ (h) И РАДИУС СТОЛБА (r): '); Readln(h, R); Writeln('ДАВЛЕНИЕ = ', d * g * h, ', МАССА ЖИДКОСТИ: ', d * h * Pi * Power(R, 2)); end.
