Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг/м3. составьте программу в pascal abc которая найдёт суммарную массу жидкости.

pervushina245 pervushina245    3   02.03.2019 00:50    2

Ответы
dzeratigieva dzeratigieva  23.05.2020 19:21

program mss;
uses crt;
var v,m,h,r:real;
begin
clrscr;
writeln('Введите радиус');
readln(r);
writeln('Введите высоту');
readln(h);
v:= 3.14*sqr(r)*h;
m:= 1200*v;
writeln('   ',m:2:2,' кг');
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика