Пасудзіна цыліндрычнай формы запоўнены да краеў вадкасцю, шчыльнасць якой d=1200кг/м. састаўце праграму, якая вылічвае: а) ціск слупа вадкасці на дно пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3.14R); в)сумарную масу вадкасці. Зыходныя даныя (радыус пасудзіны R, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.

Ответы (1)

Беллами 09.02.2025 5

а)
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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: