Question

Найти площадь осевого сечения прямого кругового конуса с радиусом основания R и образующей L.
сделать в Паскале
помогите пожалуйста​

Answer 1

var

 r,l:integer;

begin

 write('Введите радиус(R) и образующую(L):'); readln(r,l);

 write('Площадь сечения(S): S=0,5*2*R*h: ',r*sqrt(sqr(l)-sqr(r)));

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!