Viết chương trình xét một tam giác có là tam giác vuông hay không

Viết chương trình xét một tam giác có là tam giác vuông hay không

Đề bài: Viết chương trình xét một tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác

Lời giải:

Program BT;
Uses crt;
Var a, b, c: real;

Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a, b, c);
        If (a + b <= c) or (a + c <= b) or (b + c <= a) then Write('Khong phai do dai 3 canh tam giac')
        Else
        If(a * a + b * b = c * c) or (b * b + a * a = c * c) or (b * b + c * c = a * a) then Write('Tam giac vuong')
        Else Write('Khong phai tam giac vuong');
        Readln
End.