Задача на Pascal. Равносторонние треугольники.

[Eugie]

Ну если сам не понял, кто же тебя поймет...
Такой вариант не сгодится?

Код: Выделить всё

function IsEquilateralTriangle(a,b,c: Real): Boolean;
begin
  Result := (a>0) and (a=b) and (b=c);
end;

[Naeel Maqsudov]

vitalik,
1) Приведите четкое и однозначное условие задачи, иначе тема будет удалена!
2) Соблюдайте впредь соглашение о названиях тем (название исправлено)

[Naeel Maqsudov]

Каких синусов!
Три вещественных числа могут быть только сторонами треугольника (длинами сторон). Eugie прав.