Сосуды цилиндрической формы (их 6) заполнены до краев - вопрос №542716 от илья1988 08.10.2022 05:21

Question

Информатика: Сосуды цилиндрической формы (их 6) заполнены до краев жидкостью плотностью d=1200 кг/м3 составьте программу, которая вычисляет суммарную массу жидкости требуемые исходные данные (радиус сосуда r, высота столба жидкости h)вводятся массив с клавиатуры, результат выводится на экран. язык паскаль abc.

илья1988 · Answer

var i:integer; s:real; m:array[1..2,1..6] of real; begin s:=0; for i:=1 to 6 do begin readln(m[1,i]); readln(m[2,i]); s:=s+3.14*m[1,i]*m[1,i]*m[2,i]*1200; end; writeln(s); end.  ...