bài toán nhập vào ba số a,b,c bất kì kiểm tra xem ba số vừa nhập có thỏa mãn là ba cạnh của một tam giác không. Nếu là ba cạnh của một tam giác thì tính chu vi và diện tích P= a+b+c/2 S = √P(p-o)*(p-b)*(p-o)
bài toán nhập vào ba số a,b,c bất kì kiểm tra xem ba số vừa nhập có thỏa mãn là ba cạnh của một tam giác không. Nếu là ba cạnh của một tam giác thì tính chu vi và diện tích P= a+b+c/2 S = √P(p-o)*(p-b)*(p-o)
Uses crt;
Var a, b, c, s, p: real;
Begin
Clrscr;
Write(‘Nhap 3 canh a, b, c: ‘); 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));
End;
Writeln(‘Chu vi la: ‘,p:4:2);
Writeln(‘Dien tich la: ‘,s:4:2);
Readln
End.