Viết chương trình nhập ba cạnh a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác cân hay không (với a,b,c được nhập từ bàn phím)

0 bình luận về “Viết chương trình nhập ba cạnh a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác cân hay không (với a,b,c được nhập từ bàn phím)”

1. Program bai1;

   uses crt;

   var a,b,c,cv:word;

   begin

   clrscr;

   write(‘nhap vao so a=’);readln(a);

   write(‘nhap vao so b=’);readln(b);

   write(‘nhap vao so c=’);readln(c);

   if (a+b>c) and (b+c>a) and (a+c>b) then

   begin

   writeln(‘a,b,c tao nen tam giac’);

   cv:=a+b+c;

   writeln(‘chu vi tam giac = ‘ ,cv)

   end

   else

   writeln(‘a,b,c khong tao nen tam giac’);

   readln;

   end.

   Bình luận