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

Question

Информатика

Гаухарара

23 ноября, 05:52

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

+3

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