Question

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

Answer 1

var S,p,a,b,c: 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);

end.

Answer 2

var a, b:integer;

S:real;

begin

writeln('Введите стороны (а и б) треугольника') ;

readln(a, b);

S:=a*b/2;

write('Площадь треугольника равна: ', S) ;

end.