Составить программу нахождения по формуле герона

Question

Информатика

Феодота

10 ноября, 19:26

Составить программу нахождения по формуле герона

+3

Ответы (1)

Знаете ответ на вопрос?

Талина · Answer 1

Program abc;

uses crt;

var a, b, c, P, S, P2:real;

begin

writeln ('Введите первую сторону: ') ;

readln (a) ;

writeln ('Введите вторую сторону: ') ;

readln (b) ;

writeln ('Введите третью сторону: ') ;

readln (c) ;

if (a+b
writeln ('Ваш треугольник не существует')

else

P:=a+b+c;

P2:=P/2;

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

writeln ('Площадь = ', S) ;

end.