Сосуды цилиндрической формы (их 6) заполнены до краев жидкостью плотностью d=1200 кг/м3 составьте программу, которая вычисляет суммарную массу жидкости требуемые исходные данные (радиус сосуда r, высота столба жидкости h)
вводятся массив с клавиатуры, результат выводится на экран. язык паскаль abc.
Zhekka123
1
02.03.2019 03:50
0
Другие вопросы по теме Информатика
Alexader2352
29.06.2019 22:50
2ArtemPetrenko2
28.11.2019 20:22
moskalkov
28.11.2019 20:23
Саша11111111111уу
13.11.2020 07:42
Lubov080301
27.05.2019 15:20
lushkina73
27.05.2019 15:30
Дурень228
27.05.2019 15:30
Дедад
27.05.2019 15:30
Популярные вопросы
- Нарисуйте кроссворд используя слова: моховидный, печёночники, ризоиды, листостебельный,...
2 - с заданием по информатике. Составить алгоритм по нахождению произведения...
3 - все во Во Укажите сегменты спинного мозга, в которых размещена центральная...
2 - 304. Складзіце невялікі тэкст, пачаўшы яго звароткам, які называеадрасата...
2 - нуужно что такое гениальность?...
2 - В магазин привезли 200 лампочек,5 из них оказались неиспрвными, какую часть...
1 - После полного разложения смеси нитрата аммония дихромата аммония образовалось...
2 - Жизненные идеалы, поступки натальи ростовой...
2 - Узын тумсыгынын астында калтасы барсу кусы...
3 - 4. Вычислите, сколько молекул содержится в 460 г оксида азота NO.....
2
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.