Пишет ошибка встречено "else",а ожидалось оператор, написано на паскале. var a,b,c,d,x1,x2: real; begin writeln('введите коэффициент a'); readln(a); writeln('введите коэффициент b'); readln(b); writeln('введите коэффициент с'); readln(c); d: =b*b-4*a*c; begin if d> =0 then x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); end; else writeln('корней нет'); begin writeln('x1=',x1); writeln('x2=',x2); writeln('d=',d); writeln('sqrt(d)=',sqrt(d)); end; end.
Объяснение:
Можешь просто написать
if D<0 then
writeln ('Корней нет');