Question

viết chương trình kiểm tra xem 3 số bất kì được nhập từ bàn phím có phải là 3 cạnh của tam giác cân, tam giác đều, tam giác vuông không?

mong mina giúp đỡ ^-^

Answer 1

uses crt;

var a,b,c : integer;

begin

clrscr;

writeln('nhap vao ba so bat ki la'); readln(a,b,c);

if (a+b>c) and (b+c>a) and (c+a>b) then begin

if (a=b) or (b=c) or (c=a) then begin

if (a=b) and (b=c) then writeln('day la ba canh tam giac deu')

else writeln('day la ba canh tam giac can');end;

if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then

writeln('day la ba canh tam giac vuong');end

else writeln('ba so vua nhap khong phai la ba canh tam giac nen khong xac dinh');readln;end.

Answer 2

program tamgiac;

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.