Регистрация
mivliev38p08iax
03.04.2022 20:55
Информатика
Есть ответ 👍

Найдите площадь треугольника по трем сторонам. Подсказка, по формуле Герона Написать на языке Паскаля

233
366
Посмотреть ответы 2

Ответы на вопрос:

eliza3108
eliza3108
4,5(9 оценок)

var

 a,b,c,p,s:real;

 flag:boolean;

begin

 flag:=false;

 repeat

   write('Введите стороны a,b,c: '); readln(a,b,c);

   if (a+b>c) and (a+c>b) and (b+c>a) and (a*b*c>0) then

     flag:=true

       else

         writeln('Некорректные данные.');

 until flag;

 p:=(a+b+c)/2;

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

 writeln('S=',s);

end.

Аделина2201
Аделина2201
4,7(11 оценок)

i this me a --ab - b is simple an ab and sin ab =32

Популярно: Информатика