Nhập vào độ dài 3 cạnh của tam giác abc kiểm tra xem tam giác abc là cân hay đều

0 bình luận về “Nhập vào độ dài 3 cạnh của tam giác abc kiểm tra xem tam giác abc là cân hay đều”

1. Uses crt;
   Var a, b, c: real;
   Begin
   Clrscr;
   Write(‘Nhap lan luot do dai 3 canh cua tam giac: ‘); 
   Readln(a, b, c);
   If (a = b) or (b = c) or (c = a) then writeln(‘Tam giac can’);
   If (a = b) and (b = c) and (c = a) then writeln(‘Tam giac deu’);
   Readln
   End.

   Bình luận