Viết chương trình nhập 3 cạnh của 1 tam giác là ABC từ bàn phím. Kiểm tra và in ra kết quả đó là tam giác thường, tam giác vuông , tam giác cân hay tam giác đều
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
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) or (a+c<=b) or (b+c<=a) then Writeln('Khong phai tam giac') Else If (a=b) and (b=c) then Write('Tam giac deu') Else If (a=b) or (a=c) or (c=b) then Write('Tam giac can') Else If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write('Tam giac vuong'); Readln End.