Question

!!!!!!!!!!!!!!РЕБЯТА,ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!
осуществить перевод функции
s=√p(p-a) (p-b) (p-c)
Информатика
Поставлю 5 звезд и лучший ответ

Answer 1

Ответ:

Объяснение:

program qq;

var

   p,a,b,c : integer;

   s : real;

begin

   

   writeln('Input a, b, c');

   readln(a,b,c);

   

   p := a + b + c;

   

   s := sqrt(p*(p-a)*(p-b)*(p-c));

   

   writeln('Result: ', s);

end.