Question

viết chương trình kiểm tra xem 3 cạnh nhập từ bàn phím có tạo thành 1 tam giác cân hay không

SOS

Answer 1

program tamgiac;

var a,b,c: longint;

begin

write('Nhap canh b= ');readln(b);

write('Nhap canh c= ');readln(c);

if (a>b+c) or (b>a+c) or (c>a+b) then writeln('Day khong phai la ba canh tam giac')

else if (a=b) or(b=c) or (a=c) then writeln('Day la tam giac can')

else if (a=b) and (b=c) then writeln('Day la tam giac dau')

else if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(c)+sqr(a)) or (sqr(c)=sqr(a)+sqr(b)) then writeln('Day la tam giac vuong')

else writeln('Day la tam giac thuong');

readln

end.