Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1: Xác định bài toán
-Input: Nhập ba cạnh của tam giác
-Output: Xác định dạng của tam giác đó
2: Viết chương trình
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if (a=b) and (a<>c) and (b<>c) then kt:=1;
if (b=c) and (b<>a) and (c<>a) then kt:=1;
if (a=c) and (a<>b) and (c<>b) then kt:=1;
if (a=c) and (b=c) then kt:=2;
if sqr(a)=sqr(b)+sqr(c) then kt:=3;
if sqr(b)=sqr(a)+sqr(c) then kt:=3;
if sqr(c)=sqr(a)+sqr(b) then kt:=3;
if kt=0 then writeln('Day la tam giac thuong');
if kt=1 then writeln('Day la tam giac can');
if kt=2 then writeln('Day la tam giac deu');
if kt=3 then writeln('Day la tam giac vuong');
if (kt=1) and (kt=3) then writeln('Day la tam giac vuong can');
end
else writeln('Day khong la ba canh trong mot tam giac'); readln;
end.
a = float(input("Nhap a : "))
b = float(input("Nhap b : "))
c = float(input("Nhap c : "))
if a+b>c and a+c>b and b+c>a:
if a==b or a==c or b==c:
if a==c==b:
print("Day la ba canh cua tam giac deu")
else:
print("Day la ba canh cua tam giac can")
elif (a**2)+(b**2)==c**2 or (a**2)+(c**2)==b**2 or (c**2)+(b**2)==a**2:
print("Day la ba canh cua tam giac vuong")
else:
pass
else:
print("Day khong phai ba canh cua tam giac")
program tamgiac;
uses crt;
var a,b,c: longint;
begin write('Nhap canh a= ');readln(a);
write('Nhap canh b= ');readln(b);
write('Nhap canh c= ');readln(c);
if (a>b+c) or (b>a+c) or (c>a+b) then
writeln('Day khong phai la ba canh tam giac')
else if (a=b) or(b=c) or (a=c) then
writeln('Day la tam giac can') else if (a=b) and (b=c) then
writeln('Day la tam giac dau')
else if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(c)+sqr(a)) or (sqr(c)=sqr(a)+sqr(b)) then writeln('Day la tam giac vuong')
else writeln('Day la tam giac thuong');
readln
end.