Question

Написать программу вычисления площади конуса, (На программе Pascal)

Sбок = $pi$* r * √(r² + H²)

Буду благодарен за ответ!

Answer 1

program name;
var S,H,r:real;
begin
writeln('Введите числа для переменных r и H соответственно');
readln(r,H);
S:= pi*r*sqrt((sqr(r)+sqr(H)));
writeln('Sбок=', S);
end.