Nhập vào 3 số ABC kiểm tra có phải là 3 cạnh tam giác hay không nếu là tam giác thì đó là tam giác gì gì

0 bình luận về “Nhập vào 3 số ABC kiểm tra có phải là 3 cạnh tam giác hay không nếu là tam giác thì đó là tam giác gì gì”

1. program az;

   uses Crt;

   var a,b,c : integer;

   begin

   clrscr;

   Write(‘Nhap 3 so do : ‘); readln(a,b,c);

   If (a + b > c) and (b + c > a) and (c + a > b) then 

   begin

   Writeln(‘La so do 3 canh cua tam giac’);

   If (a = b) or (b = c) or (c = a) then Writeln(‘La tam giac can’);

   If (a=b=c) then Writeln(‘La tam giac deu’);

   If (a*a + b*b = c*c) or (b*b + c*c = a*a) or (a*a + c*c = b*b) then Writeln(‘La tam giac vuong’);

   end;

   else Writeln(‘Khong phai so do 3 canh cua tam giac’);

   readln

   end.

   Bình luận