Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

По трем введенным с клавиатуры сторонам необходимо выяснить является ли этот треугольник равносторонним.

Ответ оставил Гость

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