Информатика

Ладимир

8 ноября, 06:35

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

что сделать?