Nhập ba số a, b, c bất kỳ. Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của 1 tam giác hay không? Thông báo lên màn hình thỏa mãn, ko thỏa mãn trong từng trường hợp tương ứng ?
Nhập ba số a, b, c bất kỳ. Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của 1 tam giác hay không? Thông báo lên màn hình thỏa mãn, ko thỏa mãn trong từng trường hợp tương ứng ?
uses crt;
var a,b,c:real;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write (‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ la ba canh cua tam giac’)
else
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ khong phai la ba canh cua tam giac’);
readln
end.
Program BTT:
Uses crt;
Var a, b, c : extended
Begin
Clrscr;
Write(‘ Nhap a, b, c: ‘); Readln (a, b, c);
If (a + b > c) and (a + c > b) and (b + c > a) then Write(‘Do la do dai 3 canh cua tam giac’)
Else write (‘Do khong phai la do dai 3 canh cua tam giac’);
Readln;
End.