Составить программу вычисляющую объем конуса если вводятся с клавиатуры его радиус и высота

Question

Готя

3 июня, 00:16

+3

Ответы (1)

Знаете ответ на вопрос?

Арий · Answer 1

Var r, h, v:real;

begin

writeln ('Радиус: ') ;

readln (r) ;

writeln ('Высота: ') ;

readln (h) ;

v:=pi*h*r*r/3;

writeln (v:0:2) ;

end.