Добавлено: 16 мар 2004, 22:27
Ну если сам не понял, кто же тебя поймет...
Такой вариант не сгодится?
Такой вариант не сгодится?
Код: Выделить всё
function IsEquilateralTriangle(a,b,c: Real): Boolean;
begin
Result := (a>0) and (a=b) and (b=c);
end;