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 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
