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 ko ?

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!

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.