Ответы и объяснения

2013-10-24T16:42:08+00:00
Program prog;
uses crt; // используем crt для вывода в консоль ( а то окошко не появиться)
var
a,b,c,p:real; // объявляем переменные вещественного типа т.к при делении число
//не всегда целое
begin
clrscr; // очищает окно, мало ли вдруг чего осталось)
writeln('a = ');
readln(a); // забираем А
writeln('b = ');
readln(b); // забираем Б
writeln('c = ');
readln(c);  // забираем С
p:= (sqrt(sqr(a)+sqr(b)+sqr(c)))/(2*a+b*sin(c)); //sqr-возведение в квадрат
                                                                   //sqrt-корень квадратный
                                                                   //sin - тут все ясно. ответ в радианах а   // не вградусах
writeln('P = ',p); // вывод результата
readln;
end.



Могут быть опечатки, это норма)
Спасибо!