Question

Дан треугольник со сторонами a,b,с.Определить,является ли он равносторонним.На Pascal ABC

Answer 1

Var a,b,c:real;
begin
  repeat
    write('Введите длины сторон треугольника a,b,c ');
    readln(a,b,c);
  until (a>0) and (b>0) and (c>0);
  if (a=b) and (b=c) then writeln ('Равносторонний')
    else writeln('Не равносторонний или такой треугольник не существует');
end.

Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний

Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует

Answer 2

Для того, чтобы определить, является ли треугольник со сторонами a, b, c равносторонним, нужно проверить, равны ли все эти стороны между собой. Если a = b = c, то треугольник равносторонний, иначе - нет. На языке программирования Pascal ABC это можно сделать так:

program IsEquilateral; var a, b, c: real; // объявляем переменные для сторон треугольника begin writeln('Введите длины сторон треугольника a, b, c'); // выводим приглашение для ввода readln(a, b, c); // считываем значения сторон с клавиатуры if (a = b) and (b = c) then // если все стороны равны writeln('Треугольник равносторонний') // выводим сообщение else // иначе writeln('Треугольник не равносторонний'); // выводим другое сообщение end.

Для более подробного изучения свойств и формул треугольников вы можете посмотреть следующие источники:

- [Треугольник — Википедия](https://ru.wikipedia.org/wiki/%D0%A2%D1%80%D0%B5%D1%83%D0%B3%D0%BE%D0%BB%D1%8C%D0%BD%D0%B8%D0%BA) - [Треугольник. Формулы и свойства треугольников.](https://ru.onlinemschool.com/math/formula/triangle/)