Question

Известны плотность и геометрические размеры (R-радиус основания и h-высота) цилиндрического слитка, полученного в металлургической лаборатории. Найти объем V, массу m и площадь S основания слитка.Написать в паскале код

Answer 1

##

var (p, R, h) := ReadReal3('Введите плотность, радиус и высоту:');

var S := Pi * R ** 2;

var V := S * h;

var m := p * V;

Write('V=', V:0:5, ', m=', m:0:5, ', S=', S:0:5)