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

Question

Информатика

Максимиан

9 сентября, 10:42

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

+2

Ответы (1)

Знаете ответ?

Лиля · Answer 1

Var r, h, s: real;

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

readln (r) ;

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

readln (h) ;

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

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

end.