hãy kiểm tra xem 3 số a,b,c có là độ dài 3 cạnh của một tam giác hay không? thông báo lên màn hình ” thõa mãn” hay ” không thỏa mãn”

0 bình luận về “hãy kiểm tra xem 3 số a,b,c có là độ dài 3 cạnh của một tam giác hay không? thông báo lên màn hình ” thõa mãn” hay ” không thỏa mãn””

1. Uses crt;

   Var a,b,c:integer;

   Begin

   Clrscr;

   Read(a,b,c);

   If (a<=0) or (b<=0) or (c<=0) then write(‘Khong thoa man’);

   If (a+b>c) and (b+c>a) and (a+c>b) then write(‘Thoa man’) 

   else write(‘Khong thoa man’);

   Readln;

   End.

   Bình luận

2. Var a , b , c : Real ;

    BEGIN

    Writeln (‘ Nhap do dai 3 canh cua tam giac : ‘) ;

    Write (‘ a = ‘) ; Readln ( a ) ;

    Write (‘ b = ‘) ; Readln ( b ) ;

    Write (‘ c = ‘) ; Readln ( c ) ;

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

    and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then

    Writeln (‘ Thoa man : Day la 3 canh cua mot tam giac ‘)

    Else

    Writeln (‘ Khong thoa man ! ‘) ;

    Readln ; END .

   Chúc bạn học tốt !!

   Bình luận