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 tra.

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à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.