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 ('треугольник не ра...
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
что сделать?
Гость
Ответ(ы) на вопрос:
Гостьif (a=b=c) then
Неправильно заданное условие.
Попробуй так: if (a=b) and (b=c) then
Не нашли ответ?
Похожие вопросы