nhập 3 cạnh a, b, c của một tam giác viết câu lệnh rẽ nhánh đưa ra thông báo là tam giác trên là tam giác đều tam giác cân hay tam giác vuông

0 bình luận về “nhập 3 cạnh a, b, c của một tam giác viết câu lệnh rẽ nhánh đưa ra thông báo là tam giác trên là tam giác đều tam giác cân hay tam giác vuông”

1. Program BTT;
   Uses crt;
   Var a,b,c: extended;
   Begin
           Clrscr;
           Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
           If (a=b) and (b=c) then Write(‘Tam giac deu’)
           Else If (a+b>c) and (a+c>b) and (b+c>a) and (a=b) or (b=c) or (a=c) 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.

   Bình luận