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í
By Raelynn
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.