Question

Viết hàm để kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác ABC hay không ?  

Answer 1

function ktra(a,b,c:integer):boolean;

var kt:boolean;

begin

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then kt:=true

else kt:=false;

if kt=true then ktra:=true

else ktra:=false;

end;