Question

Составить программу, которая определяет, является ли треугольник равносторонним.

Answer 1

Ну, если вводятся длины сторон, то можно так:
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var a:=ReadReal('Введите А');
  var b:=ReadReal('Введите В');
  var c:=ReadReal('Введите С');
  if (a=b) and (b=c) then println('Равносторонний')
  else println('Нет');
end.

Answer 2

Для определения, является ли треугольник равносторонним, можно использовать следующую программу:

def is_equilateral_triangle(a, b, c):
    if a == b and b == c:
        return True
    else:
        return False

# Пример использования программы
side_a = float(input("Введите длину стороны a: "))
side_b = float(input("Введите длину стороны b: "))
side_c = float(input("Введите длину стороны c: "))

if is_equilateral_triangle(side_a, side_b, side_c):
    print("Треугольник является равносторонним.")
else:
    print("Треугольник не является равносторонним.")

В данной программе используется функция `is_equilateral_triangle`, которая принимает длины трех сторон треугольника в качестве аргументов и возвращает `True`, если треугольник является равносторонним, и `False` в противном случае. Функция сравнивает длины всех сторон и возвращает результат сравнения.

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

Примечание: Данная программа предполагает, что пользователь вводит корректные значения длин сторон треугольника. Если требуется добавить проверку на корректность ввода, это можно сделать с помощью дополнительных условий в программе.

Источники: -