viết chương trình xét xem một tam giác có là tam giác đều hay không khi biết 3 cạnh của tan giác đó gợi ý nhập 3 cạnh của tam giác vào 3 biến a,b,c nếu a=b và b=c thì tam giác ABC là tam giác đều ngược lại không là tam giác đều

program ct;

uses crt;

var a,b,c:integer;

begin clrscr;

   write('Nhap do dai ba canh cua tam giac: '); readln(a,b,c);

   if (a=b) and (a=c) and (b=c) then write('Day la tam giac deu');

                                                               else write('Day khong la tam giac deu');

readln;

end.

Học tốt!

Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh cua tam giac: '); Read(a,b,c);
        If (a=b) and (b=c) then Write('Tam giac deu')
        Else Write('Khong phai tam giac deu');
        Readln;
        Readln
End.