BÀI 3:

var a,b,c:int64;
function kt(a,b,c:real):boolean;//hàm này dùng để gọi một hàm kiểm tra có trả về giá trị

// boolean là lệnh kiểm tra đúng sai gồm có true hay false
begin
        if (trunc(a) = trunc(sqrt(sqr(b) + sqr(c)))) or (trunc(b) = trunc(sqrt(sqr(a) + sqr(c)))) or (trunc(c) = trunc(sqrt(sqr(a) + sqr(b))))then // trunc là phép làm tròn, sqrt là phép căn, sqr là lấy bình phương
        begin
                kt:=true;
        end
        else kt:=false;
end;

begin
        readln(a,b,c);
        if (kt(a,b,c)=true) then writeln('la tam giac vuong')
        else writeln('khong la tam giac vuong');
end.

BÀI 4:

var a,b,c:int64;
function kt(a,b,c:int64):boolean;
begin
        if (a=b) or (a=c) or (b=c) then kt:=true;
end;

begin
        readln(a,b,c);
        if (kt(a,b,c)=true) then writeln('la tam giac can')
        else writeln('khong la tam giac can');
end.

p/s: bài 3 áp dụng định lý pytago để tìm còn bài 4 thì áp dụng tính chất tam giác cân ( nếu 1 tam giác có 2 cạnh = nhau thì tam giác đó là tam giác cân).

@Hômnaytôibịrob

Bài 1:

a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))
if (a*a==b*b+c*c)|(b*b==a*a+c*c)|(c*c==a*a+b*b):
 print("\nĐây là tam giác vuông")
else:
 print ("\nKhông Tạo Thành Tam Giác")

Bài 2:

a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))
if (a==b)& (a!=c) | (a==c)&(a!=b) | (b==c) & (b!=a):
 print ("\nĐây là tam giác cân")
else:
 print ("\nKhông Tạo Thành Tam Giác")