Проходим Паскаль . Помогите, пожалуйста. Проверить, является ли треугольник...

Question

Проходим Паскаль .
Помогите, пожалуйста.
Проверить, является ли треугольник равносторонним.
Я делать начала, а программа все ошибку выдает, не знаю как и быть.

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('Треугольник равносторонний')
 else writeln('Треугольник не равносторонний (а может быть и не треугольник)');
end.

Пример:
a = 5
b = 5
c = 5
Треугольник равносторонний

Comments

хорошо, проверим по паскалю.

---

спасибо большое, все отлично.

---

Пожалуйста.

Answer 2

Var a,b,c: real;
begin
  writeln('Введите длины сторон треугольника (3 значения)');
  readln(a,b,c);
  if (a=b) and (b=c) then writeln(' Треугольник равносторонний')
    else writeln(' Треугольник не равносторонний');
end.