Question

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

Answer 1

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.

Answer 2

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.