Question

Составьте алгоритм и программу на языке Паскаль, с помощью которого можно определить, является ли треугольник с заданными сторонами a, b, c равносторонним.

Answer 1

var

 a,b,c:integer;

begin

 writeln('введите стороны угла');

 realn(a,b,c)

 if (a=b) and (b=c) then

   writeln('прямоугольник равносторонний')

 else

   writeln('прямоугольник не равносторонний')

end.

Answer 2

Для определения является ли треугольник равносторонним, нужно проверить, что все его стороны равны друг другу. Алгоритм: 1. Вводим стороны треугольника a, b, c. 2. Проверяем условие: a = b и b = c и a = c. Если условие выполняется, переходим к шагу 3, иначе переходим к шагу 4. 3. Выводим сообщение "Треугольник является равносторонним". 4. Выводим сообщение "Треугольник не является равносторонним". Программа на языке Pascal: program IsEquilateralTriangle; var a, b, c: Integer; begin writeln('Введите стороны треугольника:'); readln(a, b, c); if (a = b) and (b = c) and (a = c) then writeln('Треугольник является равносторонним') else writeln('Треугольник не является равносторонним'); end. Пользователь должен ввести значения сторон треугольника, после чего программа проверит является ли треугольник равносторонним и выведет соответствующее сообщение.