giúp em vs Viết chương trình tính diện tích của tam giác có ba canh là a, b, c (được nhập từ bàn phím) Hướng dẫn: • Nhập ba cạnh của tam giác vào ba biến a, b, c. • Nữa chu vi của tam giác p=(a+b+c)/2. diện tích của tam giác :s=căn p(p-a)*(p-b)*(p-c)

uses crt;

var a, b, c, p, s : real;

begin

clrscr;

write('nhap ba canh tam giac : ');readln(a, b, c);

if (a + b > c) and (b + c > a) and (a + c > b) then

begin

p := (a + b + c) / 2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln('dien tich tam giac : ', s:2:1);

end;

readln

end.

Program TAMGIAC;
Uses crt;
Var a,b,c,s,p : real;
Begin
    Clrscr;
    Write('a = ');readln(a);
    Write ('b = ');readln(b);
    Write('c = ');readln(c);
    If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
    begin
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        Writeln('Dien tich tam giac: ',s:4:2);
    end
    else
    write('khong phai la ba canh cua tam giac');
    Readln;
End.