1)
program ct;
uses crt;
var a,b,c:integer;
begin clrscr;
write('Nhap do dai hai canh goc vuong: '); readln(a,b);
write('Nhap do dai canh huyen: '); readln(c);
if c*c=a*a+b*b then write('Day la tam giac vuong')
else write('Day khong la tam giac vuong');
readln;
end.
2)
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.
3)
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) and (a=c) and (b=c) then write('Day la tam giac deu')
else write('Day khong la tam giac deu');
readln;
end.
Học tốt!