Bài 1: Viết biểu thức tồn tại tam giác (a, b, c là 3 cạnh của tam giác)

0 bình luận về “Bài 1: Viết biểu thức tồn tại tam giác (a, b, c là 3 cạnh của tam giác)”

1. Program Tamgiac;
   Uses crt;
   Var a, b, c: real;

   Begin
           Clrscr;
           Write(‘Nhap do dai 3 canh: ‘); Readln(a, b, c);

           If (a + b > c) and (b + c > a) and (a + c > b) and (a > 0) and (b > 0) and (c > 0) then Write(‘Ton tai tam giac’)
           Else Write(‘Khong ton tai tam giac’);

           Readln
   End.

   Bình luận

2. uses crt;
   var a,b,c:real;
   BEGIN
           clrscr;
           write(‘Nhap canh thu nhat:’); readln(a);
           write(‘Nhap canh thu hai:’); readln(b);
           write(‘Nhap canh thu ba:’); readln(c);
           if (a+b>c) and (b+c>a) and (a+c>b) then
           write(‘Do dai 3 canh HOP LE’)
           else write(‘Do dai 3 canh KHONG HOP LE’);
           readln
   END.

   Chúc bạn học tốt.

   Cho mình câu trl hay nhất nha.

   Bình luận