Question

Дан треугольник со сторонами a,b,с.Определить,является ли он равносторонним.На Pascal ABC

Answer 1

var a,b,c:real;
begin
  repeat
    write('Введите длины сторон треугольника a,b,c ');
    readln(a,b,c);
  until (a>0) and (b>0) and (c>0);
  if (a=b) and (b=c) then writeln ('Равносторонний')
    else writeln('Не равносторонний или такой треугольник не существует');
end.

Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний

Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует