Viết chương trình nhập vào 3 số nguyên dương a,b,c . Xét xem 3 số vừa nhập có phải là chiều dài 3 cạnh của tam giác không , nếu là chiều dài 3 cạnh của tam giác thì xét xem tam giác đó là tam giác nhọn , vuông hay tù .
Viết chương trình nhập vào 3 số nguyên dương a,b,c . Xét xem 3 số vừa nhập có phải là chiều dài 3 cạnh của tam giác không , nếu là chiều dài 3 cạnh của tam giác thì xét xem tam giác đó là tam giác nhọn , vuông hay tù .
uses crt;
var
a,b,c: integer;
begin
write(‘nhap 3 canh tam giac a,b,c ‘); read(a,b); readln(c);
If (a+b<=c) and (b+c<=a) and (c+a<=b) then write(‘ba canh nay khong phai la ba canh tam giac’)
else
begin
If (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then write(‘ba canh nay la ba canh cua tam giac vuong’);
If (a*a+b*b>c*c) or (b*b+c*c>a*a) or (c*c+a*a>b*b) then write(‘ba canh nay la ba canh cua tam giac nhon’);
If (a*a+b*b<c*c) or (b*b+c*c<a*a) or (c*c+a*a<b*b) then write(‘ba canh nay la ba canh cua tam giac tu’);
end;
readln
End.
program phuongt;
uses crt;
var a, b, c, g1, g2, g3: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap c = ‘); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write(‘Tam giac vuong’);
write(‘Nhap so do goc 1: ‘); readln(g1);
write(‘Nhap so do goc 2: ‘); readln(g2);
write(‘Nhap so do goc 3: ‘); readln(g3);
if (g1<=180) and (g2<=180) and (g3<=180) then
begin
if (g1=90) or (g2=90) or (g3=90) then write(‘Tam giac vuong’);
if (g1>90) or (g2>90) or (g3>90) then write(‘Tam giac tu’);
if ((g1<90) or (g2<90) or (g3<90)) and ((g1=90) or (g2=90) or (g3=90)) then write(‘Tam giac nhon’);
end
else write(‘Nhap so do goc sai’);
end;
readln
end.