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.