Пасудзіна цыліндрычнай формы запоўнены да краеў вадкасцю, шчыльнасць якой d=1200кг/м. састаўце праграму, якая вылічвае: а) ціск слупа вадкасці на дно пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dv=dhs (s=3.14r);
в)сумарную масу вадкасці. зыходныя даныя (радыус пасудзіны r, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.
а)
var
p,d,h:real;
begin
readln(h);
p:=1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r:real;
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k:integer;
m,h,r,S:real;
begin
readln(k);
S:=0;
for i:=1 to k do
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
S:=S+m;
end;
writeln(S);
end.