Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Составить программу нахождения площади треугольника по формуле Герона.
Входные данные длины сторон треугольника.
Выходные данные периметр треугольника, площадь треугольника.

Ответ оставил Гость

program abc;
uses crt;
var a,b,c,P,S,P2:real;
begin
writeln(Введите первую сторону: );
readln(a);
writeln(Введите вторую сторону: );
readln(b);
writeln(Введите третью сторону: );
readln(c);
if (a+bwriteln(Ваш треугольник не существует)
else
P:=a+b+c;
P2:=P/2;
S:=sqrt(P2*(P2-a)*(P2-b)*(P2-c));
writeln(Периметр = ,P);
writeln(Площадь = ,S);
end.