Xét xem một tam giác có là đều hay không khi biết độ dài ba cạnh của x được nhập từ bàn phím

2 câu trả lời

Bạn tham khảo!

Program tamgiac;
Uses crt;
Var
a,b,c:Real;
Begin
Clrscr;
Write('Nhap a ');Readln(a);
Write('Nhap b ');Readln(b);
Write('Nhap c ');Readln(c);
If (a=b)and(b=c) then
Writeln('Ba canh tam giac deu')
Else
Writeln('Ba canh khong phai la ba canh tam giac deu');
Readln;
End.

Câu hỏi trong lớp Xem thêm