Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra màn hình thông báo đó có p

0 bình luận về “Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra màn hình thông báo đó có p”

1. program Tam_giac;

   uses crt;

   var a,b,c:integer;

   begin 

    readln(a,b,c);

   if (a+b>c) and (b+c>a) and (c+a>b) 

   then if (a=b) and (b=c) 

            then writeln(‘La tam giac deu’)

             else if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)

                    then writeln(‘La tam giac vuong can’)

                    else writeln(‘La tam giac vuong’)

             else if (a=b) or (b=c) or (c=a)

                    then writeln(‘La tam giac can’)

             else writeln(‘Tam giac thuong’)

   else writeln(‘Khong phai la tam giac’);

   readln 

   end.

   chúc học tốt nha

   Trả lời