Регистрация
M8ilen
14.05.2022 19:12
Информатика
Есть ответ 👍

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

205
390
Посмотреть ответы 2

Ответы на вопрос:

Коугар
Коугар
4,4(20 оценок)

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.

 

kamakina
kamakina
4,8(76 оценок)

3 мин = 180 с

96 кгц=96000гц

16 бит = 2байт

1) звук - стерео, значит надо будет умножить число на 2

2байт*96000гц*180с* 2=69120000 байт = 67500 кбайт

Популярно: Информатика