Как составить программу вычесления площади полной поверхности цилиндра

Question

Информатика

Тимофей

3 октября, 15:51

Как составить программу вычесления площади полной поверхности цилиндра

+4

Ответы (1)

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

Павла · Answer 1

Var r, h, s: real;

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

readln (r) ;

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

readln (h) ;

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

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

end.