Предмет: Информатика, автор: FJIVDIOVDIOSVOISD

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

Ответы

Автор ответа: srzontmp
0
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

Похожие вопросы
Предмет: Химия, автор: vladushaermakova
Предмет: Алгебра, автор: sagun6766
Предмет: Математика, автор: никос4