Написать программу вычисления площади конуса, (** программе Pascal) Sбок = * r * √(r² +...

Question

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

Sбок = * 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.