Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác VUÔNG hay không ? Thông báo lên màn hình kết quả kiểm

0 bình luận về “Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác VUÔNG hay không ? Thông báo lên màn hình kết quả kiểm”

1. Program BTT;
   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>c) and (b+c>a) and (c+a>b) then
           Begin
                   If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write(‘Do dai 3 canh cua tam giac’);
           End
           Else Write(‘Khong phai do dai 3 canh cua tam giac’);
           Readln
   End.

   Bình luận

2. bài làm

   Program BTT;
   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>c) and (b+c>a) and (c+a>b) then
           Begin
                   If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write(‘Do dai 3 canh cua tam giac’);
           End
           Else Write(‘Khong phai do dai 3 canh cua tam giac’);
           Readln
   End.

   Bình luận