Даны 3 стороны треугольника, составить программу в которой нужно определить...

Question

Даны 3 стороны треугольника, составить программу в которой нужно определить равносторонний ли треугольник, если равносторонний, то вывести на экран сообщение треугольник - равносторонний

Comments

Паскаль?

---

Да

Answer 1

Var
A,B,C:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
if (a = b)and(b = c) then WriteLn('Треугольник равносторонний')
End.