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

Question

Иваныч

16 февраля, 19:49

+5

Ответы (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.