Viết chương trình Pascal : – nhập vào 3 biến a,b, c tương ứng vs 3 cạnh của tam giác – kiểm tra xem 3 cạnh đó có phải là 3 cạnh của tam giác cân hay

0 bình luận về “Viết chương trình Pascal : – nhập vào 3 biến a,b, c tương ứng vs 3 cạnh của tam giác – kiểm tra xem 3 cạnh đó có phải là 3 cạnh của tam giác cân hay”

1. program ct;

   uses crt;

   var a,b,c:integer;

   begin clrscr;

      write(‘Nhap do dai ba canh cua tam giac: ‘); readln(a,b,c);

      if (a=b) or (a=c) or (b=c) then write(‘Day la tam giac can’);

                                               else write(‘Day khong la tam giac can’);

   readln;

   end.

   Học tốt!

   Bình luận

2. 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’);

   writeln;

   if  (a=b) and (b=c) and (a=c) then write(‘ la tam giac can’) else write(‘khong la tam giac cân’)

   readln;

   end.

   Bình luận