Составьте программу: 1. Вычислите объём конуса(v=1/3pi r^2 h)
Составьте программу:
1. Вычислите объём конуса(v=1/3pi r^2 h)
Гость
Ответ(ы) на вопрос:
Гость//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
Не нашли ответ?
Похожие вопросы