Viết chương trình nhập vào 3 cạnh a, b, c. Kiểm tra 3 cạnh này có phải là 3 cạnh của tam giác đều hay không?

0 bình luận về “Viết chương trình nhập vào 3 cạnh a, b, c. Kiểm tra 3 cạnh này có phải là 3 cạnh của tam giác đều hay không?”

1. Uses crt;

   Var a, b, c: longint;

   Begin

         Clrscr;

         Write(‘Nhap a = ‘); readln(a);

         Write(‘Nhap b = ‘); readln(b);

         Write(‘Nhap c = ‘); readln(c);

         If (a=b) and (b=c) and (c=a) then writeln(‘La tam giac deu’)

         Else writeln(‘Khong la tam giac deu’);

   Readln

   End.

   Bình luận

2. uses crt;
   var a,b,c:longint;
   begin
   clrscr;
      write(‘a,b,c= ‘);readln(a,b,c);
      if(a=b)and(b=c)then writeln(‘Day la tam giac deu’) else
      writeln(‘Day khong la tam giac deu’);
   readln
   end.

   Bình luận