Viết chương trình xét 3 số a, b, c có phải là 3 cạnh của một tam giác hay không?

0 bình luận về “Viết chương trình xét 3 số a, b, c có phải là 3 cạnh của một tam giác hay không?”

1. uses crt;

   var a,b,c:integer;

   begin

   clrscr;

   readln(a);

   readln(b);

   readln(c);

   if (a+b>c) and (a+c>b) and (b+c>a) then write(a,’,’,b,’,’,c,’ la 3 canh cua tam giac’) else write(a,’,’,b,’,’,c,’ khong la 3 canh cua tam giac’);

   readln;

   end.

   mk làm hơi dài ở phần write nếu k thik thì bạn có thể rút gọn nhé

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,b,c: extended;
   Begin
           Clrscr;
           Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
           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