Найти площадь (S) треугольника, если известны длины всех 3-х сторон этого треугольника. Длины сторон a, b, c вводятся пользователем с клавиатуры.

Question

Информатика

Поликсена

20 марта, 20:22

Найти площадь (S) треугольника, если известны длины всех 3-х сторон этого треугольника. Длины сторон a, b, c вводятся пользователем с клавиатуры.

+4

Ответы (1)

Знаете ответ?

Гораций · Answer 1

Uses crt;

var a, b, c:integer;

S, P:real;

begin

writeln ('Ведите a=') ; readln (a) ;

writeln ('Ведите b=') ; readln (b) ;

writeln ('Ведите c=') ; readln (c) ;

P: = (a*b*c) / 2;

S:=sqrt (P * (P-a) * (P-b) * (P-c)) ;

writeln ('S=', S) ;

end.