XxKanexX
2006-03-05 04:56:29
function Triad(a, b, c: extended): boolean;
Var
Total: Integer;
begin
total:= Trunc( Sqr(MaxE(MaxE(a, b), MaxE(b, c))) );
if(Trunc(Sqr(MinE(a, b) + MinE(b, c))) = Total)then
result:= true;
end;
Is it worth adding?.. Or not needed ;)