viết chương trình nhập 3 số bất kì kiểm tra xem ba số đó có phải là 3 cạnh của tam giác không nếu thỏa mãn tam giác ba cạnh của tam giác thì tính và in ra màn hình diện tích tam giác nếu không thì in ra màn hình 3 số không thỏa mãn ba cạnh của tam giác, biết công thức diện tích tam giác là P:= (a + b + c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c))
Uses crt;
Var a,b,c,p,s: extended;
Begin
Clrscr;
Write(‘Nhap do dai 3 canh a, b, c: ‘); Readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(‘Dien tich tam giac la: ‘,s:10:2);
Readln
End.
var a,b,c:longint;
s,p:real;
begin
write(‘nhap a,b,c: ‘); readln(a,b,c);
if a+b>c then write(‘Khong phai la tam giac’) else
if a+c>b then write(‘Khong phai la tam giac’) else
if b+c>a then write(‘Khong phai la tam giac’) else
writeln(‘La tam giac’);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(‘Dien tich tam giac la: ‘,s:0:4);
readln;
end.