Написать программу на языке паскаль вычисления площади поверхности s=π (R+r) l+πR²+πr² усеченного конуса

Question

Информатика

Выта

15 мая, 07:24

Написать программу на языке паскаль вычисления площади поверхности s=π (R+r) l+πR²+πr² усеченного конуса

+5

Ответы (1)

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

Зигга · Answer 1

Const

pi=3.14;

var

V1, V2, R, h:real;

begin

Write ('Введите радиус и высоту: ') ; Read (R, h) ;

V1:=pi*sqr (R) * h; V2:=V1/3;

Writeln ('Объем цилиндра ', V1:0:5,', объем конуса ', V2:0:5)

end.