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 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.