Посмотрите . образующая конуса l см составляет с плоскостью основания угол . найти объем конуса . надо составить программу в турбо паскаль посмотрите ,что там не ответ не получается program nomer_2; uses crt; var l,x: integer; h,r,v: real; begin clrscr; write('введите исходные данные'); readln(l,x); h: =l*sin(x); r: =l*cos(x); v: =(1/3)*h*pi*sqr(r); writeln('объем конуса равен =', v: 8: 2); readln; end.
Лучше писать так:
Var L,x, h,R,V:real;