Определить равнобедренный ли треугольник [pascal]

[ROMA2PVT]

if (a=b) and (a<>c) or (a=c) and (a<>b) or (b=c) and (b<>a) then
  begin
  writeln('Треугольник равнобедренный');
  end
  else writeln('НИФИГА НЕ РАВНОБЕДРЕННЫЙ!!!!');

Можно вот так ещё.Так правильно.

[ROMA2PVT]

если у треугольника равны 2 любые стороны то он равнобедренный!

Не любые а только бёдра третья сторона это основание.
И получается

if (a=b) or (b=c) or (c=a) then writeln('равнобедренный')
else writeln('неравнобедренный');

Введу три одинаковых числа.Будет равнобедренный.А это неверно.Геометрия была давно но всёже кое что помню.

[DoDge_VipeR]

Введу три одинаковых числа.Будет равнобедренный.А это неверно.Геометрия была давно но всёже кое что помню.

равнобедренный треугольник

По определению, правильный треугольник также является равнобедренным, но обратное неверно.

так что плохо вы и это кое-что помните!
Судя по вашему ----квадратный корень из отрицательного числа тоже не вычисляется!

[ROMA2PVT]

Треугольник у которого три стороны равны это равносторонний.Но не как не равнобедренный.
Ведь правда есть разница?

[DoDge_VipeR]

Треугольник у которого три стороны равны это равносторонний.Но не как не равнобедренный.

как раз таки равностороний треугольник ==равнобедренный, обратное неверно! по ссылке точно все прочитал?
по вашему получается стоит равнобедренный треугольник чуть повернуть вокруг одной из вершин и он перестает быть равнобедренным)) ппц!

[ROMA2PVT]

Нет от поворота он не станет быть равнобедренным.Но сами посудите две стороны равны в равнобедренном а не три.

if (a=b) or (b=c) or (c=a) then writeln('равнобедренный')
else writeln('неравнобедренный');

А здесь что получается вводим три одинаковые стороны.И треугольник чудесным образом равнобедренный.Учитель ставит два и все счастливы.

[ROMA2PVT]

Ладно спорить небуду.Если в википедии написано что и правельный треуг является равнобедренным.
На досуге найду учебник и гляну.Не помню чтоб так было написано.Ну да ладно.