Пишет ошибка встречено "else",а ожидалось оператор, написано ** паскале. var...

Question

Пишет ошибка встречено "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.

Answer 1

Ответ:

Объяснение:

Можешь просто написать

if D<0 then  </p>

 writeln ('Корней нет');