Question

Nhập vào 3 cạnh xét xem 3 cạnh đó là 3 cạnh của tam giác gì trên pascal. Mọi người giúp tui với tui bị cô chửi vì ko làm đc bài này huhu =((.

 

 

Answer 1

Giúp tui ik mà mn xin mn ngừoi đấy =((

 

Answer 2

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

readln(a,b,c);

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

begin

kt:=0;

if (sqr(a)=sqr(b)+sqr(c)) then kt:=1;

if (sqr(b)=sqr(a)+sqr(c)) then kt:=1;

if (sqr(c)=sqr(a)+sqr(b)) then kt:=1;

if (a=b) and (b<>c) and (a<>c) then kt:=2;

if (a=c) and (a<>b) and (c<>b) then kt:=2;

if (b=c) and (b<>a) and (c<>a) then kt:=2;

if (a=b) and (b=c) then kt:=3;

if kt=0 then write('Tam giac thuong')

else if kt=1 then write('Tam giac vuong')

else if kt=2 then write('Tam giac can')

else if kt=3 then write('Tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.