Question

составить программу нахождения площади поверхности прямого кругового усеченного конуса с радиусом оснований R1, R2 и высотой h. написать в словесном виде и на языке паскаля

Answer 1

var
k, h, v, s : real;
begin
write('введите высоту h: ');
readln(h);
write('введите радиус основания: ');
readln(k);
v := 1 / 3 * h * pi * sqr(k);
s := pi * k * (k + sqrt(sqr(h) + sqr(k)));
writeln('площадь полной поверхности: ', s:6:2);
writeln('объем: ', v:6:2);
readln
end.