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

Question

Информатика

Петаня

17 августа, 01:05

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

+5

Ответы (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.