Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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
Треугольник равносторонний