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

Составить программу вычисления площади треугольника

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

Var
a,b,c,p:real;
begin
writeln(Введите длины сторон треугольника: );
write(A = );read(a);
write(B = );read(b);
write(C = );read(c);
p:=(a+b+c)/2;
writeln(Площадь треугольника: , sqrt(p*(p-a)*(p-b)*(p-c)):4:4);
end.