Question

Составьте программу я которая вычисляет: массу жидкости в каждом сосуде m = dV = dhS(S = 3.14 R во второй степени)
Требуемые исходные данные (радиус сосуда R, высота столбца жидкости h) вводятся в массив с клавиатуры, результат выводится на экран. Язык - Pascal

Answer 1

program Zanija;

var m,d,V,h,S,R:real;

begin

Writeln('Введите радиус (R) ');

readln(R);

Writeln('Введите высоту столбца жидкости (h) ');

readln(h);

Writeln('Введите (d) ');

readln(d);

S:= 3.14 * sqr(r);

v:= h*s;

m:=d*V;

writeln('Масса жидкости в каждом сосуде = ',m);

End.