Question

Viết chương trình tính diện tích tam giác có các cạnh bằng 7,9,12

Answer 1

uses crt;

var p,dt:real;

begin

clrscr;

p:=(7+9+12)/2

s:=sqrt(p*(p-7)*(p-9)*(p-12))

writeln('dien tich la: ',s);

readln;

end.