Написать программу вычисления обьем усеченного конуса

svettik2016 svettik2016    3   18.09.2019 21:40    0

Ответы
юля15102 юля15102  08.10.2020 00:51
Const pi=3.141593;
var R,R1,H,V: real;
begin
  write('радиус нижнего основания R:  '); readln(R);
  write('радиус верхнего основания R1:  '); readln(R1);
  write('высота конуса H:  '); readln(H);
  V:=H*pi*(R*R+R*R1+R1*R1)/3;
  writeln('объем конуса V = ',V:7:3);
end.

радиус нижнего основания R:  10
радиус верхнего основания R1:  15
высота конуса H:  8
объем конуса V = 3979.351
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика