Question

var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b=c) then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

ошибка Операция '=' не применима к типам boolean и real
что сделать?

Answer 1

if (a=b=c) then

Неправильно заданное условие.

Попробуй так: if (a=b) and (b=c) then