Написать программу в паскале, которая проверяет проверяет по заданным трем сторонам...

Question

Написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность

Answer 1

Program E4; 
  var a, b, с: real; 
begin
  writeln ('введите длины трех сторон треугольника ');
  readln (a, b, с);
  write ('треугольник со сторонами ', а, Ь, с);
  if (а + b > с) and (b + с > a) and (а + с > Ь) then
begin
     writeln ('существует');
     if (a = b) and (a = c) then
     writeln ('равносторонний')
     else
     writeln ('неравносторонний');
  else 
     writeln ('не существует');
end;
  readln 
end.

Comments

спасибо большое!