Question

учитывая длины сторон- a,b,c треугольника. важно проверить, равносторонний ли он или нет . надо писать на паскале . помогите завтра экзамен ​

Answer 1

Ответ:

Free Pascal

var

 a,b,c : integer;

begin

 writeln('Введите сторону a');

 readln(a);

 writeln('Введите сторону b');

 readln(b);

 writeln('Введите сторону c');

 readln(c);

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

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

 else

   writeln('Треугольник не равносторонний');

end.