Программа вычисляющая объём и площадь полной поверхности цилиндра

Question

Информатика

Боруля

10 марта, 00:56

Программа вычисляющая объём и площадь полной поверхности цилиндра

+5

Ответы (1)

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

Флоренция · Answer 1

Var r, h, s, v: real;

begin write ('Введите радиус: ') ;

readln (r) ;

write ('Введите высоту: ') ;

readln (h) ;

s:=4*pi*r * (h+r) ;

v:=pi*r*r*h;

writeln ('Полная площадь цилиндра равна ', s) ;

writeln ('Объем цилиндра равен ', v) ;

end.