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

1
Стороны вводятся с клавиатуры?
да

Ответы и объяснения

2016-04-06T07:04:58+00:00
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
Не равносторонний или такой треугольник не существует